home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / debug.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  65.2 KB  |  3,235 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "debug.h"
  4. init_debug(){do_init(VV);}
  5. /*    function definition for SHOW-BREAK-VARIABLES    */
  6.  
  7. static L1()
  8. {register object *base=vs_base;
  9.     register object *sup=base+VM1; VC1
  10.     vs_reserve(VM1);
  11.     {register object V1;
  12.     if(vs_top-vs_base>1) too_many_arguments();
  13.     if(vs_base>=vs_top){vs_top=sup;goto T1;}
  14.     V1=(base[0]);
  15.     vs_top=sup;
  16.     goto T2;
  17. T1:;
  18.     V1= small_fixnum(1);
  19. T2:;
  20. T5:;
  21.     {register object V2;
  22.     register object V3;
  23.     V2= reverse(car(symbol_value(VV[0])));
  24.     V3= car((V2));
  25. T11:;
  26.     if(!(endp((V2)))){
  27.     goto T12;}
  28.     goto T7;
  29. T12:;
  30.     base[3]= symbol_value(VV[1]);
  31.     base[4]= VV[2];
  32.     base[5]= car((V3));
  33.     base[6]= cadr((V3));
  34.     vs_top=(vs_base=base+3)+4;
  35.     Lformat();
  36.     vs_top=sup;
  37.     V2= cdr((V2));
  38.     V3= car((V2));
  39.     goto T11;}
  40. T7:;
  41.     V1= number_plus((V1),small_fixnum(-1));
  42.     if(!((fix((V1)))>(0))){
  43.     goto T27;}
  44.     goto T26;
  45. T27:;
  46.     vs_base=vs_top=base+1;
  47.     vs_base[0]=Cnil;
  48.     return;
  49. T26:;
  50.     vs_base=vs_top;
  51.     (void) (*Lnk107)();
  52.     vs_top=sup;
  53.     goto T5;
  54.     }
  55. }
  56. /*    local entry for function SHOW-ENVIRONMENT    */
  57.  
  58. static object LI2(V5)
  59.  
  60. object V5;
  61. {     VMB2 VMS2 VMV2
  62. TTL:;
  63.     {object V6;
  64.     base[1]= (V5);
  65.     vs_top=(vs_base=base+1)+1;
  66.     (void) (*Lnk108)();
  67.     vs_top=sup;
  68.     base[0]= vs_base[0];
  69.     vs_top=(vs_base=base+0)+1;
  70.     (void) (*Lnk109)();
  71.     vs_top=sup;
  72.     V6= vs_base[0];
  73.     if(!(type_of((V6))==t_cons||((V6))==Cnil)){
  74.     goto T35;}
  75.     {register object V7;
  76.     register object V8;
  77.     base[3]= (V5);
  78.     vs_top=(vs_base=base+3)+1;
  79.     (void) (*Lnk108)();
  80.     vs_top=sup;
  81.     base[2]= vs_base[0];
  82.     vs_top=(vs_base=base+2)+1;
  83.     (void) (*Lnk109)();
  84.     vs_top=sup;
  85.     V9= vs_base[0];
  86.     V7= reverse(V9);
  87.     V8= car((V7));
  88. T43:;
  89.     if(!(endp((V7)))){
  90.     goto T44;}
  91.     {object V10 = Cnil;
  92.     VMR2(V10)}
  93. T44:;
  94.     base[2]= symbol_value(VV[1]);
  95.     base[3]= VV[3];
  96.     base[4]= car((V8));
  97.     base[5]= cadr((V8));
  98.     vs_top=(vs_base=base+2)+4;
  99.     Lformat();
  100.     vs_top=sup;
  101.     V7= cdr((V7));
  102.     V8= car((V7));
  103.     goto T43;}
  104. T35:;
  105.     {object V11 = Cnil;
  106.     VMR2(V11)}}
  107. }
  108. /*    function definition for SEARCH-STACK    */
  109.  
  110. static L3()
  111. {register object *base=vs_base;
  112.     register object *sup=base+VM3; VC3
  113.     vs_reserve(VM3);
  114.     {object V12;
  115.     check_arg(1);
  116.     V12=(base[0]);
  117.     vs_top=sup;
  118. TTL:;
  119.     {object V13;
  120.     V13= Cnil;
  121.     if(!(type_of((V12))==t_symbol)){
  122.     goto T62;}
  123.     V13= symbol_name((V12));
  124.     goto T60;
  125. T62:;
  126.     V13= (V12);
  127. T60:;
  128.     {register int V14;
  129.     register int V15;
  130.     {object V16;
  131.     vs_base=vs_top;
  132.     (void) (*Lnk110)();
  133.     vs_top=sup;
  134.     V16= vs_base[0];{object V17;
  135.     V17= (type_of((V16))==t_fixnum?Ct:Cnil);
  136.     if(V17==Cnil)goto T67;
  137.     goto T66;
  138. T67:;}
  139.     (void)((*(LnkLI111))());
  140. T66:;
  141.     V14= fix((V16));}
  142.     V15= 2;
  143.     {register object V18;
  144.     V18= Cnil;
  145.     {register object V19;
  146.     V19= Cnil;
  147. T71:;
  148.     if((V14)<=(V15)){
  149.     goto T74;}
  150.     goto T73;
  151. T74:;
  152.     goto T72;
  153. T73:;
  154.     {register object V20;
  155.     base[1]= make_fixnum(V14);
  156.     vs_top=(vs_base=base+1)+1;
  157.     (void) (*Lnk112)();
  158.     vs_top=sup;
  159.     V20= vs_base[0];
  160.     V18= (V20);}
  161.     base[1]= (V18);
  162.     vs_top=(vs_base=base+1)+1;
  163.     Lcompiled_function_p();
  164.     vs_top=sup;
  165.     if((vs_base[0])==Cnil){
  166.     goto T82;}
  167.     base[1]= (V18);
  168.     vs_top=(vs_base=base+1)+1;
  169.     (void) (*Lnk113)();
  170.     vs_top=sup;
  171.     V19= vs_base[0];
  172.     goto T80;
  173. T82:;
  174.     if(!(type_of((V18))==t_symbol)){
  175.     goto T88;}
  176.     V19= (V18);
  177.     goto T80;
  178. T88:;
  179.     if(!(type_of((V18))==t_cons||((V18))==Cnil)){
  180.     goto T92;}
  181.     {register object x= car((V18)),V21= VV[4];
  182.     while(!endp(V21))
  183.     if(eql(x,V21->c.c_car)){
  184.     goto T95;
  185.     }else V21=V21->c.c_cdr;
  186.     goto T92;}
  187. T95:;
  188.     V19= cadr((V18));
  189.     goto T80;
  190. T92:;
  191.     V19= VV[5];
  192. T80:;
  193.     V22= symbol_name((V19));
  194.     if(((VFUN_NARGS=4,(*(LnkLI114))((V13),/* INLINE-ARGS */V22,VV[6],VV[7])))==Cnil){
  195.     goto T98;}
  196.     base[1]= make_fixnum(V14);
  197.     vs_top=(vs_base=base+1)+1;
  198.     (void) (*Lnk115)();
  199.     vs_top=sup;
  200.     princ_char(10,Cnil);
  201.     vs_base=vs_top;
  202.     (void) (*Lnk116)();
  203.     return;
  204. T98:;
  205.     V14= (V14)-(1);
  206.     goto T71;
  207. T72:;
  208.     base[1]= symbol_value(VV[1]);
  209.     base[2]= VV[8];
  210.     base[3]= (V13);
  211.     vs_top=(vs_base=base+1)+3;
  212.     Lformat();
  213.     vs_top=sup;
  214.     base[1]= Cnil;
  215.     vs_top=(vs_base=base+1)+1;
  216.     return;
  217.     base[1]= Cnil;
  218.     vs_top=(vs_base=base+1)+1;
  219.     return;}}}}
  220.     }
  221. }
  222. /*    function definition for BREAK-LOCALS    */
  223.  
  224. static L4()
  225. {register object *base=vs_base;
  226.     register object *sup=base+VM4; VC4
  227.     vs_reserve(VM4);
  228.     bds_check;
  229.     {object V23;
  230.     if(vs_top-vs_base>1) too_many_arguments();
  231.     if(vs_base>=vs_top){vs_top=sup;goto T111;}
  232.     V23=(base[0]);
  233.     vs_top=sup;
  234.     goto T112;
  235. T111:;
  236.     V23= small_fixnum(1);
  237. T112:;
  238.     {object V24;
  239.     object V25;
  240.     object V26;
  241.     object V27;
  242.     object V28;
  243.     object V29;
  244.     V24= symbol_value(VV[9]);
  245.     base[6]= (V24);
  246.     vs_top=(vs_base=base+6)+1;
  247.     (void) (*Lnk108)();
  248.     vs_top=sup;
  249.     V25= vs_base[0];
  250.     bds_bind(VV[11],symbol_value(VV[10]));
  251.     bds_bind(VV[12],Cnil);
  252.     bds_bind(VV[13],symbol_value(VV[10]));
  253.     V26= symbol_value(VV[9]);
  254.     base[6]= (V24);
  255.     vs_top=(vs_base=base+6)+1;
  256.     (void) (*Lnk112)();
  257.     vs_top=sup;
  258.     V27= vs_base[0];
  259.     V28= Cnil;
  260.     V29= Cnil;
  261.     if(!((fix((V23)))>(1))){
  262.     goto T123;}
  263.     {register int V30;
  264.     int V31;
  265.     V30= 0;{object V32;
  266.     V32= (type_of((V23))==t_fixnum?Ct:Cnil);
  267.     if(V32==Cnil)goto T128;
  268.     goto T127;
  269. T128:;}
  270.     (void)((*(LnkLI111))());
  271. T127:;
  272.     V31= fix((V23));
  273.     {register int V33;
  274.     int V34;{object V35;
  275.     V35= (type_of((V26))==t_fixnum?Ct:Cnil);
  276.     if(V35==Cnil)goto T132;
  277.     goto T131;
  278. T132:;}
  279.     (void)((*(LnkLI111))());
  280. T131:;
  281.     V33= fix((V26));
  282.     V34= 2;
  283. T136:;
  284.     if((V33)<=(V34)){
  285.     goto T139;}
  286.     goto T138;
  287. T139:;
  288.     goto T137;
  289. T138:;
  290.     if((V30)>=(V31)){
  291.     goto T142;}
  292.     goto T141;
  293. T142:;
  294.     goto T137;
  295. T141:;
  296.     bds_bind(VV[9],make_fixnum(V33));
  297.     vs_base=vs_top;
  298.     (void) (*Lnk116)();
  299.     vs_top=sup;
  300.     princ_char(10,Cnil);
  301.     princ_char(10,Cnil);
  302.     bds_unwind1;
  303.     V30= (V30)+(1);
  304.     V33= (V33)-(1);
  305.     goto T136;
  306. T137:;
  307.     base[6]= Cnil;
  308.     vs_top=(vs_base=base+6)+1;
  309.     bds_unwind1;
  310.     bds_unwind1;
  311.     bds_unwind1;
  312.     return;
  313.     base[6]= Cnil;
  314.     vs_top=(vs_base=base+6)+1;
  315.     bds_unwind1;
  316.     bds_unwind1;
  317.     bds_unwind1;
  318.     return;}}
  319. T123:;
  320.     base[6]= (V27);
  321.     vs_top=(vs_base=base+6)+1;
  322.     Lcompiled_function_p();
  323.     vs_top=sup;
  324.     if((vs_base[0])==Cnil){
  325.     goto T154;}
  326.     base[6]= (V27);
  327.     vs_top=(vs_base=base+6)+1;
  328.     (void) (*Lnk113)();
  329.     vs_top=sup;
  330.     V28= vs_base[0];
  331.     goto T152;
  332. T154:;
  333.     V28= (V27);
  334. T152:;
  335.     if(!(type_of((V28))==t_symbol)){
  336.     goto T160;}
  337.     V29= get((V28),VV[14],Cnil);
  338. T160:;
  339.     {object V36;
  340.     base[6]= make_fixnum((1)+(fix(symbol_value(VV[9]))));
  341.     vs_top=(vs_base=base+6)+1;
  342.     (void) (*Lnk108)();
  343.     vs_top=sup;
  344.     V36= vs_base[0];
  345.     if(((V36))==Cnil){
  346.     goto T167;}
  347.     base[6]= symbol_value(VV[1]);
  348.     base[7]= VV[15];
  349.     base[8]= (V28);
  350.     vs_top=(vs_base=base+6)+3;
  351.     Lformat();
  352.     vs_top=sup;
  353.     if(!(type_of((V28))==t_symbol)){
  354.     goto T174;}
  355.     {register int V37;
  356.     int V38;{object V39;
  357.     V39= (type_of((V25))==t_fixnum?Ct:Cnil);
  358.     if(V39==Cnil)goto T178;
  359.     goto T177;
  360. T178:;}
  361.     (void)((*(LnkLI111))());
  362. T177:;
  363.     V37= fix((V25));{object V40;
  364.     V40= (type_of((V36))==t_fixnum?Ct:Cnil);
  365.     if(V40==Cnil)goto T182;
  366.     goto T181;
  367. T182:;}
  368.     (void)((*(LnkLI111))());
  369. T181:;
  370.     V38= fix((V36));
  371.     {register int V41;
  372.     V41= 0;
  373.     {register object V42;
  374.     V42= Cnil;
  375. T186:;
  376.     if((V37)>=(V38)){
  377.     goto T189;}
  378.     goto T188;
  379. T189:;
  380.     goto T187;
  381. T188:;
  382.     V42= Cnil;
  383.     {register object x= small_fixnum(0),V43= (V29);
  384.     while(!endp(V43))
  385.     if(eql(x,V43->c.c_car)){
  386.     goto T196;
  387.     }else V43=V43->c.c_cdr;
  388.     goto T195;}
  389. T196:;
  390.     base[6]= (V29);
  391.     base[7]= make_fixnum(V41);
  392.     vs_top=(vs_base=base+6)+2;
  393.     Lgetf();
  394.     vs_top=sup;
  395.     V42= vs_base[0];
  396.     goto T193;
  397. T195:;
  398.     V42= nth(V41,(V29));
  399. T193:;
  400.     if(((V42))==Cnil){
  401.     goto T203;}
  402.     base[6]= Ct;
  403.     base[7]= VV[16];
  404.     base[8]= make_fixnum(V41);
  405.     base[9]= (V42);
  406.     base[11]= make_fixnum(V37);
  407.     vs_top=(vs_base=base+11)+1;
  408.     (void) (*Lnk109)();
  409.     vs_top=sup;
  410.     base[10]= vs_base[0];
  411.     vs_top=(vs_base=base+6)+5;
  412.     Lformat();
  413.     vs_top=sup;
  414.     goto T201;
  415. T203:;
  416.     base[6]= symbol_value(VV[1]);
  417.     base[7]= VV[17];
  418.     base[8]= make_fixnum(V41);
  419.     base[10]= make_fixnum(V37);
  420.     vs_top=(vs_base=base+10)+1;
  421.     (void) (*Lnk109)();
  422.     vs_top=sup;
  423.     base[9]= vs_base[0];
  424.     vs_top=(vs_base=base+6)+4;
  425.     Lformat();
  426.     vs_top=sup;
  427. T201:;
  428.     V37= (V37)+(1);
  429.     if(!((V41)<(2147483646))){
  430.     goto T219;}
  431.     goto T218;
  432. T219:;
  433.     (void)((*(LnkLI111))());
  434. T218:;
  435.     V41= (V41)+(1);
  436.     goto T186;
  437. T187:;
  438.     base[6]= Cnil;
  439.     vs_top=(vs_base=base+6)+1;
  440.     bds_unwind1;
  441.     bds_unwind1;
  442.     bds_unwind1;
  443.     return;
  444.     base[6]= Cnil;
  445.     vs_top=(vs_base=base+6)+1;
  446.     bds_unwind1;
  447.     bds_unwind1;
  448.     bds_unwind1;
  449.     return;}}}
  450. T174:;
  451.     if(!(type_of((V28))==t_cons||((V28))==Cnil)){
  452.     goto T225;}
  453.     base[6]= (*(LnkLI117))((V24));
  454.     vs_top=(vs_base=base+6)+1;
  455.     bds_unwind1;
  456.     bds_unwind1;
  457.     bds_unwind1;
  458.     return;
  459. T225:;
  460.     base[6]= symbol_value(VV[1]);
  461.     base[7]= VV[19];
  462.     vs_top=(vs_base=base+6)+2;
  463.     Lformat();
  464.     bds_unwind1;
  465.     bds_unwind1;
  466.     bds_unwind1;
  467.     return;
  468. T167:;
  469.     base[6]= Cnil;
  470.     vs_top=(vs_base=base+6)+1;
  471.     bds_unwind1;
  472.     bds_unwind1;
  473.     bds_unwind1;
  474.     return;}}
  475.     }
  476. }
  477. /*    function definition for LOC    */
  478.  
  479. static L5()
  480. {register object *base=vs_base;
  481.     register object *sup=base+VM5; VC5
  482.     vs_reserve(VM5);
  483.     {object V44;
  484.     if(vs_top-vs_base>1) too_many_arguments();
  485.     if(vs_base>=vs_top){vs_top=sup;goto T229;}
  486.     V44=(base[0]);
  487.     vs_top=sup;
  488.     goto T230;
  489. T229:;
  490.     V44= small_fixnum(0);
  491. T230:;
  492.     {object V45;
  493.     base[1]= symbol_value(VV[9]);
  494.     vs_top=(vs_base=base+1)+1;
  495.     (void) (*Lnk108)();
  496.     vs_top=sup;
  497.     V45= vs_base[0];
  498.     if(!((fix((V44)))>=(0))){
  499.     goto T235;}
  500.     vs_base=vs_top;
  501.     (void) (*Lnk110)();
  502.     vs_top=sup;
  503.     V47= vs_base[0];
  504.     V48 = make_fixnum((1)+(fix(symbol_value(VV[9]))));
  505.     base[1]= (number_compare(V47,V48)<=0?(V47):V48);
  506.     vs_top=(vs_base=base+1)+1;
  507.     (void) (*Lnk108)();
  508.     vs_top=sup;
  509.     V46= vs_base[0];
  510.     if((fix((V44)))<((fix(V46))-(fix((V45))))){
  511.     goto T234;}
  512. T235:;
  513.     base[1]= VV[20];
  514.     vs_top=(vs_base=base+1)+1;
  515.     Lerror();
  516.     vs_top=sup;
  517. T234:;
  518.     base[1]= make_fixnum((fix((V44)))+(fix((V45))));
  519.     vs_top=(vs_base=base+1)+1;
  520.     (void) (*Lnk109)();
  521.     return;}
  522.     }
  523. }
  524. /*    macro definition for MV-SETQ    */
  525.  
  526. static L6()
  527. {register object *base=vs_base;
  528.     register object *sup=base+VM6; VC6
  529.     vs_reserve(VM6);
  530.     check_arg(2);
  531.     vs_top=sup;
  532.     {object V49=base[0]->c.c_cdr;
  533.     if(endp(V49))invalid_macro_call();
  534.     base[2]= (V49->c.c_car);
  535.     V49=V49->c.c_cdr;
  536.     if(endp(V49))invalid_macro_call();
  537.     base[3]= (V49->c.c_car);
  538.     V49=V49->c.c_cdr;
  539.     if(!endp(V49))invalid_macro_call();}
  540.     V50= list(3,VV[22],car(base[2]),base[3]);
  541.     {register object V52;
  542.     register object V53;
  543.     register object V54;
  544.     V52= cdr(base[2]);
  545.     V53= small_fixnum(0);
  546.     V54= Cnil;
  547. T247:;
  548.     if(((V52))!=Cnil){
  549.     goto T248;}
  550.     V51= reverse((V54));
  551.     goto T244;
  552. T248:;
  553.     V55= car((V52));
  554.     V56= list(3,VV[22],/* INLINE-ARGS */V55,list(2,VV[23],(V53)));
  555.     V54= make_cons(/* INLINE-ARGS */V56,(V54));
  556.     V52= cdr((V52));
  557.     V53= one_plus((V53));
  558.     goto T247;}
  559. T244:;
  560.     base[4]= listA(3,VV[21],/* INLINE-ARGS */V50,V51);
  561.     vs_top=(vs_base=base+4)+1;
  562.     return;
  563. }
  564. /*    macro definition for MV-VALUES    */
  565.  
  566. static L7()
  567. {register object *base=vs_base;
  568.     register object *sup=base+VM7; VC7
  569.     vs_reserve(VM7);
  570.     check_arg(2);
  571.     vs_top=sup;
  572.     {object V57=base[0]->c.c_cdr;
  573.     base[2]= V57;}
  574.     V58= car(base[2]);
  575.     {register object V60;
  576.     register object V61;
  577.     register object V62;
  578.     V60= cdr(base[2]);
  579.     V61= small_fixnum(0);
  580.     V62= Cnil;
  581. T261:;
  582.     if(((V60))!=Cnil){
  583.     goto T262;}
  584.     V59= reverse((V62));
  585.     goto T258;
  586. T262:;
  587.     V63= list(3,VV[24],(V61),car((V60)));
  588.     V62= make_cons(/* INLINE-ARGS */V63,(V62));
  589.     V60= cdr((V60));
  590.     V61= one_plus((V61));
  591.     goto T261;}
  592. T258:;
  593.     base[3]= listA(3,VV[21],/* INLINE-ARGS */V58,V59);
  594.     vs_top=(vs_base=base+3)+1;
  595.     return;
  596. }
  597. /*    function definition for DBL    */
  598.  
  599. static L8()
  600. {register object *base=vs_base;
  601.     register object *sup=base+VM8; VC8
  602.     vs_reserve(VM8);
  603.     check_arg(0);
  604.     vs_top=sup;
  605. TTL:;
  606.     base[0]= Cnil;
  607.     base[1]= Cnil;
  608.     vs_top=(vs_base=base+0)+2;
  609.     (void) (*Lnk118)();
  610.     return;
  611. }
  612. /*    function definition for MAKE-INSTREAM    */
  613.  
  614. static L9()
  615. {register object *base=vs_base;
  616.     register object *sup=base+VM9; VC9
  617.     vs_reserve(VM9);
  618.     {object V64;
  619.     object V65;
  620.     object V66;
  621.     parse_key(vs_base,FALSE,FALSE,3,VV[27],VV[36],VV[119]);
  622.     vs_top=sup;
  623.     V64=(base[0]);
  624.     if(base[4]==Cnil){
  625.     V65= small_fixnum(0);
  626.     }else{
  627.     V65=(base[1]);}
  628.     V66=(base[2]);
  629.     base[6]= VV[25];
  630.     base[7]= (V64);
  631.     base[8]= (V65);
  632.     base[9]= (V66);
  633.     vs_top=(vs_base=base+6)+4;
  634.     siLmake_structure();
  635.     return;
  636.     }
  637. }
  638. /*    function definition for CLEANUP    */
  639.  
  640. static L10()
  641. {register object *base=vs_base;
  642.     register object *sup=base+VM10; VC10
  643.     vs_reserve(VM10);
  644.     check_arg(0);
  645.     vs_top=sup;
  646. TTL:;
  647.     {register object V67;
  648.     register object V68;
  649.     V67= symbol_value(VV[26]);
  650.     V68= car((V67));
  651. T282:;
  652.     if(!(endp((V67)))){
  653.     goto T283;}
  654.     base[1]= Cnil;
  655.     vs_top=(vs_base=base+1)+1;
  656.     return;
  657. T283:;
  658.     base[1]= structure_ref((V68),VV[25],0);
  659.     vs_top=(vs_base=base+1)+1;
  660.     (void) (*Lnk120)();
  661.     vs_top=sup;
  662.     if((vs_base[0])==Cnil){
  663.     goto T287;}
  664.     setq(VV[26],(VFUN_NARGS=2,(*(LnkLI121))((V68),symbol_value(VV[26]))));
  665. T287:;
  666.     V67= cdr((V67));
  667.     V68= car((V67));
  668.     goto T282;}
  669. }
  670. /*    function definition for GET-INSTREAM    */
  671.  
  672. static L11()
  673. {register object *base=vs_base;
  674.     register object *sup=base+VM11; VC11
  675.     vs_reserve(VM11);
  676.     {register object V69;
  677.     check_arg(1);
  678.     V69=(base[0]);
  679.     vs_top=sup;
  680. TTL:;{object V70;
  681.     {register object V71;
  682.     register object V72;
  683.     V71= symbol_value(VV[26]);
  684.     V72= car((V71));
  685. T302:;
  686.     if(!(endp((V71)))){
  687.     goto T303;}
  688.     V70= Cnil;
  689.     goto T298;
  690. T303:;
  691.     V73= structure_ref((V72),VV[25],0);
  692.     if(!(((V69))==(/* INLINE-ARGS */V73))){
  693.     goto T307;}
  694.     V70= (V72);
  695.     goto T298;
  696. T307:;
  697.     V71= cdr((V71));
  698.     V72= car((V71));
  699.     goto T302;}
  700. T298:;
  701.     if(V70==Cnil)goto T297;
  702.     base[1]= V70;
  703.     vs_top=(vs_base=base+1)+1;
  704.     return;
  705. T297:;}
  706.     base[1]= VV[27];
  707.     base[2]= (V69);
  708.     vs_top=(vs_base=base+1)+2;
  709.     (void) (*Lnk122)();
  710.     vs_top=sup;
  711.     V74= vs_base[0];
  712.     setq(VV[26],make_cons(V74,symbol_value(VV[26])));
  713.     base[1]= car(symbol_value(VV[26]));
  714.     vs_top=(vs_base=base+1)+1;
  715.     return;
  716.     }
  717. }
  718. /*    function definition for NEWLINE    */
  719.  
  720. static L12()
  721. {register object *base=vs_base;
  722.     register object *sup=base+VM12; VC12
  723.     vs_reserve(VM12);
  724.     {object V75;
  725.     object V76;
  726.     check_arg(2);
  727.     V75=(base[0]);
  728.     V76=(base[1]);
  729.     vs_top=sup;
  730. TTL:;
  731.     {object V77;
  732.     base[2]= (V75);
  733.     vs_top=(vs_base=base+2)+1;
  734.     (void) (*Lnk123)();
  735.     vs_top=sup;
  736.     V77= vs_base[0];
  737.     {int V78= fix(structure_ref((V77),VV[25],1));
  738.     V79 = make_fixnum((1)+(/* INLINE-ARGS */V78));
  739.     (void)(structure_set((V77),VV[25],1,V79));}}
  740.     base[2]= Cnil;
  741.     base[3]= (V75);
  742.     base[4]= Cnil;
  743.     vs_top=(vs_base=base+2)+3;
  744.     Lpeek_char();
  745.     vs_top=sup;
  746.     V80= vs_base[0];
  747.     if(!(eql(V80,VV[29]))){
  748.     goto T326;}
  749.     setq(VV[28],VV[30]);
  750.     goto T324;
  751. T326:;
  752.     setq(VV[28],Ct);
  753. T324:;
  754.     vs_base=vs_top=base+2;
  755.     vs_base[0]=Cnil;
  756.     return;
  757.     }
  758. }
  759. /*    function definition for QUOTATION-READER    */
  760.  
  761. static L13()
  762. {register object *base=vs_base;
  763.     register object *sup=base+VM13; VC13
  764.     vs_reserve(VM13);
  765.     {object V81;
  766.     object V82;
  767.     check_arg(2);
  768.     V81=(base[0]);
  769.     V82=(base[1]);
  770.     vs_top=sup;
  771. TTL:;
  772.     {object V83;
  773.     object V84;
  774.     V83= (
  775.     (type_of(symbol_value(VV[31])) == t_sfun ?(*(object (*)())((symbol_value(VV[31]))->sfn.sfn_self)):
  776.     (fcall.fun=(symbol_value(VV[31])),fcall.argd=2,fcalln))((V81),(V82)));
  777.     base[2]= (V81);
  778.     vs_top=(vs_base=base+2)+1;
  779.     (void) (*Lnk123)();
  780.     vs_top=sup;
  781.     V84= vs_base[0];
  782.     {object V86;
  783.     V87= structure_ref(V84,VV[25],1);
  784.     V88= (VFUN_NARGS=2,(*(LnkLI124))(VV[32],(V83)));
  785.     V86= number_plus(/* INLINE-ARGS */V87,/* INLINE-ARGS */V88);
  786.     (void)(structure_set(V84,VV[25],1,(V86)));}
  787.     base[2]= (V83);
  788.     vs_top=(vs_base=base+2)+1;
  789.     return;}
  790.     }
  791. }
  792. /*    function definition for NEW-SEMI-COLON-READER    */
  793.  
  794. static L14()
  795. {register object *base=vs_base;
  796.     register object *sup=base+VM14; VC14
  797.     vs_reserve(VM14);
  798.     bds_check;
  799.     {register object V89;
  800.     object V90;
  801.     check_arg(2);
  802.     V89=(base[0]);
  803.     V90=(base[1]);
  804.     vs_top=sup;
  805. TTL:;
  806.     {register object V91;
  807.     object V92;
  808.     base[2]= (V89);
  809.     vs_top=(vs_base=base+2)+1;
  810.     (void) (*Lnk123)();
  811.     vs_top=sup;
  812.     V91= vs_base[0];
  813.     base[2]= Cnil;
  814.     base[3]= (V89);
  815.     base[4]= Cnil;
  816.     base[5]= Cnil;
  817.     vs_top=(vs_base=base+2)+4;
  818.     Lpeek_char();
  819.     vs_top=sup;
  820.     V92= vs_base[0];
  821.     {int V93= fix(structure_ref((V91),VV[25],1));
  822.     V94 = make_fixnum((1)+(/* INLINE-ARGS */V93));
  823.     (void)(structure_set((V91),VV[25],1,V94));}
  824.     if(!(eql((V92),VV[33]))){
  825.     goto T347;}
  826.     base[2]= (V89);
  827.     vs_top=(vs_base=base+2)+1;
  828.     Lread_char();
  829.     vs_top=sup;
  830.     {register object V95;
  831.     bds_bind(VV[34],symbol_value(VV[35]));
  832.     base[5]= (V89);
  833.     base[6]= Cnil;
  834.     base[7]= Cnil;
  835.     vs_top=(vs_base=base+5)+3;
  836.     Lread_line();
  837.     vs_top=sup;
  838.     base[4]= vs_base[0];
  839.     vs_top=(vs_base=base+4)+1;
  840.     (void) (*Lnk125)();
  841.     vs_top=sup;
  842.     V95= vs_base[0];
  843.     if(!(type_of((V95))==t_cons)){
  844.     bds_unwind1;
  845.     goto T345;}
  846.     if(!((car((V95)))==(VV[36]))){
  847.     bds_unwind1;
  848.     goto T345;}
  849.     if(!(type_of(cadr((V95)))==t_string)){
  850.     bds_unwind1;
  851.     goto T345;}
  852.     if(!(type_of(caddr((V95)))==t_fixnum)){
  853.     bds_unwind1;
  854.     goto T345;}
  855.     (void)(structure_set((V91),VV[25],2,cadr((V95))));
  856.     V96= structure_set((V91),VV[25],1,caddr((V95)));
  857.     bds_unwind1;
  858.     goto T345;}
  859. T347:;
  860.     (void)((
  861.     (type_of(symbol_value(VV[37])) == t_sfun ?(*(object (*)())((symbol_value(VV[37]))->sfn.sfn_self)):
  862.     (fcall.fun=(symbol_value(VV[37])),fcall.argd=2,fcalln))((V89),(V90))));
  863. T345:;
  864.     base[2]= Cnil;
  865.     base[3]= (V89);
  866.     base[4]= Cnil;
  867.     vs_top=(vs_base=base+2)+3;
  868.     Lpeek_char();
  869.     vs_top=sup;
  870.     V97= vs_base[0];
  871.     if(!(eql(V97,VV[29]))){
  872.     goto T368;}
  873.     setq(VV[28],VV[30]);
  874.     goto T366;
  875. T368:;
  876.     setq(VV[28],Ct);
  877. T366:;
  878.     vs_base=vs_top=base+2;
  879.     vs_base[0]=Cnil;
  880.     return;}
  881.     }
  882. }
  883. /*    function definition for SETUP-LINEINFO    */
  884.  
  885. static L15()
  886. {register object *base=vs_base;
  887.     register object *sup=base+VM15; VC15
  888.     vs_reserve(VM15);
  889.     check_arg(0);
  890.     vs_top=sup;
  891. TTL:;
  892.     base[0]= VV[32];
  893.     base[1]= symbol_function(VV[126]);
  894.     base[2]= Cnil;
  895.     base[3]= symbol_value(VV[38]);
  896.     vs_top=(vs_base=base+0)+4;
  897.     Lset_macro_character();
  898.     vs_top=sup;
  899.     base[0]= VV[39];
  900.     base[1]= symbol_function(VV[127]);
  901.     base[2]= Cnil;
  902.     base[3]= symbol_value(VV[38]);
  903.     vs_top=(vs_base=base+0)+4;
  904.     Lset_macro_character();
  905.     vs_top=sup;
  906.     base[0]= VV[29];
  907.     base[1]= VV[40];
  908.     base[2]= Cnil;
  909.     base[3]= symbol_value(VV[38]);
  910.     vs_top=(vs_base=base+0)+4;
  911.     Lset_macro_character();
  912.     vs_top=sup;
  913.     base[0]= VV[41];
  914.     base[1]= VV[42];
  915.     base[2]= Cnil;
  916.     base[3]= symbol_value(VV[38]);
  917.     vs_top=(vs_base=base+0)+4;
  918.     Lset_macro_character();
  919.     return;
  920. }
  921. /*    function definition for NLOAD    */
  922.  
  923. static L16()
  924. {register object *base=vs_base;
  925.     register object *sup=base+VM16; VC16
  926.     vs_reserve(VM16);
  927.     bds_check;
  928.     {object V98;
  929.     object V99;
  930.     if(vs_top-vs_base<1) too_few_arguments();
  931.     V98=(base[0]);
  932.     vs_base=vs_base+1;
  933.     vs_top[0]=Cnil;
  934.     {object *p=vs_top;
  935.      for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
  936.     V99=(base[1]);
  937.     vs_top=sup;
  938.     base[2]= symbol_value(VV[43]);
  939.     vs_top=(vs_base=base+2)+1;
  940.     Lclrhash();
  941.     vs_top=sup;
  942.     vs_base=vs_top;
  943.     (void) (*Lnk128)();
  944.     vs_top=sup;
  945.     base[2]= (V98);
  946.     vs_top=(vs_base=base+2)+1;
  947.     Ltruename();
  948.     vs_top=sup;
  949.     V98= vs_base[0];
  950.     vs_base=vs_top;
  951.     (void) (*Lnk129)();
  952.     vs_top=sup;
  953.     bds_bind(VV[34],symbol_value(VV[38]));
  954.     base[3]=symbol_function(VV[130]);
  955.     base[4]= (V98);
  956.     {object V100;
  957.     V100= (V99);
  958.      vs_top=base+5;
  959.      while(!endp(V100))
  960.      {vs_push(car(V100));V100=cdr(V100);}
  961.     vs_base=base+4;}
  962.     (void) (*Lnk130)();
  963.     bds_unwind1;
  964.     return;
  965.     }
  966. }
  967. /*    function definition for LEFT-PARENTHESIS-READER    */
  968.  
  969. static L17()
  970. {register object *base=vs_base;
  971.     register object *sup=base+VM17; VC17
  972.     vs_reserve(VM17);
  973.     {object V101;
  974.     object V102;
  975.     check_arg(2);
  976.     V101=(base[0]);
  977.     V102=(base[1]);
  978.     vs_top=sup;
  979. TTL:;
  980.     {object V103;
  981.     register object V104;
  982.     V103= Cnil;
  983.     V104= symbol_value(VV[28]);
  984.     if(!((symbol_value(VV[28]))==(Ct))){
  985.     goto T404;}
  986.     setq(VV[28],Cnil);
  987. T404:;
  988.     if(((V104))==Cnil){
  989.     goto T408;}
  990.     base[2]= (V101);
  991.     vs_top=(vs_base=base+2)+1;
  992.     (void) (*Lnk123)();
  993.     vs_top=sup;
  994.     V104= vs_base[0];
  995.     V103= structure_ref((V104),VV[25],1);
  996. T408:;
  997.     {object V105;
  998.     V105= (
  999.     (type_of(symbol_value(VV[44])) == t_sfun ?(*(object (*)())((symbol_value(VV[44]))->sfn.sfn_self)):
  1000.     (fcall.fun=(symbol_value(VV[44])),fcall.argd=2,fcalln))((V101),(V102)));
  1001.     if(((V104))==Cnil){
  1002.     goto T416;}
  1003.     {object V107;
  1004.     object V108;
  1005.     V107= symbol_value(VV[43]);
  1006.     base[3]= (V104);
  1007.     vs_top=(vs_base=base+3)+1;
  1008.     (void) (*Lnk131)();
  1009.     vs_top=sup;
  1010.     V109= vs_base[0];
  1011.     V108= make_cons(V109,(V103));
  1012.     base[3]= V105;
  1013.     base[4]= (V107);
  1014.     base[5]= (V108);
  1015.     vs_top=(vs_base=base+3)+3;
  1016.     siLhash_set();
  1017.     vs_top=sup;}
  1018. T416:;
  1019.     base[2]= (V105);
  1020.     vs_top=(vs_base=base+2)+1;
  1021.     return;}}
  1022.     }
  1023. }
  1024. /*    function definition for WALK-THROUGH    */
  1025.  
  1026. static L18()
  1027. {register object *base=vs_base;
  1028.     register object *sup=base+VM18; VC18
  1029.     vs_reserve(VM18);
  1030.     {register object V110;
  1031.     check_arg(1);
  1032.     V110=(base[0]);
  1033.     vs_top=sup;
  1034. TTL:;
  1035.     {register object V111;
  1036.     V111= Cnil;
  1037. T428:;
  1038.     if(!(type_of((V110))==t_cons)){
  1039.     goto T429;}
  1040.     base[1]= (V110);
  1041.     base[2]= symbol_value(VV[43]);
  1042.     vs_top=(vs_base=base+1)+2;
  1043.     Lgethash();
  1044.     vs_top=sup;
  1045.     V111= vs_base[0];
  1046.     if(((V111))==Cnil){
  1047.     goto T432;}
  1048.     if(!(type_of(car((V110)))==t_cons)){
  1049.     goto T439;}
  1050.     if((caar((V110)))==(VV[45])){
  1051.     goto T439;}
  1052.     base[1]= (V110);
  1053.     base[2]= symbol_value(VV[43]);
  1054.     vs_top=(vs_base=base+1)+2;
  1055.     Lremhash();
  1056.     vs_top=sup;
  1057.     {register object V112;
  1058.     register object V113;
  1059.     register object V114;
  1060.     V112= car((V110));
  1061.     V113= symbol_value(VV[43]);
  1062.     V114= (V111);
  1063.     base[2]= (V112);
  1064.     base[3]= (V113);
  1065.     base[4]= (V114);
  1066.     vs_top=(vs_base=base+2)+3;
  1067.     siLhash_set();
  1068.     vs_top=sup;
  1069.     goto T432;}
  1070. T439:;
  1071.     V115= make_cons((V111),(V110));
  1072.     (void)((VFUN_NARGS=2,(*(LnkLI132))(/* INLINE-ARGS */V115,symbol_value(VV[46]))));
  1073. T432:;
  1074.     base[1]= car((V110));
  1075.     vs_top=(vs_base=base+1)+1;
  1076.     (void) (*Lnk133)();
  1077.     vs_top=sup;
  1078.     V110= cdr((V110));
  1079.     goto T428;
  1080. T429:;
  1081.     base[1]= Cnil;
  1082.     vs_top=(vs_base=base+1)+1;
  1083.     return;}
  1084.     }
  1085. }
  1086. /*    function definition for COMPILER-DEF-HOOK    */
  1087.  
  1088. static L19()
  1089. {register object *base=vs_base;
  1090.     register object *sup=base+VM19; VC19
  1091.     vs_reserve(VM19);
  1092.     {object V116;
  1093.     object V117;
  1094.     check_arg(2);
  1095.     V116=(base[0]);
  1096.     V117=(base[1]);
  1097.     vs_top=sup;
  1098. TTL:;
  1099.     {object V118;
  1100.     register int V119;
  1101.     int V120;
  1102.     V118= symbol_value(VV[46]);
  1103.     V119= 2147483647;
  1104.     V120= -1;
  1105.     if(!(type_of((V117))!=t_cons)){
  1106.     goto T460;}
  1107.     base[2]= remprop((V116),VV[48]);
  1108.     vs_top=(vs_base=base+2)+1;
  1109.     return;
  1110. T460:;
  1111.     if(!((symbol_value(VV[34]))==(symbol_value(VV[38])))){
  1112.     goto T463;}
  1113.     base[2]= symbol_value(VV[46]);
  1114.     base[3]= small_fixnum(0);
  1115.     vs_top=(vs_base=base+2)+2;
  1116.     siLfill_pointer_set();
  1117.     vs_top=sup;
  1118.     base[2]= (V117);
  1119.     vs_top=(vs_base=base+2)+1;
  1120.     (void) (*Lnk133)();
  1121.     vs_top=sup;
  1122.     {object V121;
  1123.     register int V122;
  1124.     V121= make_fixnum(length((V118)));
  1125.     V122= 0;
  1126. T474:;
  1127.     V123 = make_fixnum(V122);
  1128.     if(!(number_compare(V123,(V121))>=0)){
  1129.     goto T475;}
  1130.     goto T470;
  1131. T475:;
  1132.     {register int V124;
  1133.     V125= aref1((V118),V122);
  1134.     V124= fix(cdar(/* INLINE-ARGS */V125));
  1135.     if(!((V124)>(V120))){
  1136.     goto T481;}
  1137.     V120= V124;
  1138. T481:;
  1139.     if(!((V124)<(V119))){
  1140.     goto T479;}
  1141.     V119= V124;}
  1142. T479:;
  1143.     V122= (V122)+1;
  1144.     goto T474;}
  1145. T470:;
  1146.     if(!((length(symbol_value(VV[46])))>(0))){
  1147.     goto T492;}
  1148.     {object V126;
  1149.     object V127;
  1150.     V128 = make_fixnum(((V120)-(V119))+(2));
  1151.     V126= (VFUN_NARGS=3,(*(LnkLI134))(V128,VV[49],VV[50]));
  1152.     V127= get((V116),VV[48],Cnil);
  1153.     V129= aref1((V118),0);
  1154.     V130= caar(/* INLINE-ARGS */V129);
  1155.     V131 = make_fixnum(V119);
  1156.     V132= make_cons(/* INLINE-ARGS */V130,V131);
  1157.     (void)(aset1((V126),0,/* INLINE-ARGS */V132));
  1158.     V119= (V119)-(1);
  1159.     {object V133;
  1160.     register object V134;
  1161.     V133= make_fixnum(length((V118)));
  1162.     V134= small_fixnum(0);
  1163. T503:;
  1164.     if(!(number_compare((V134),(V133))>=0)){
  1165.     goto T504;}
  1166.     goto T499;
  1167. T504:;
  1168.     {object V135;
  1169.     V135= aref1((V118),fixint((V134)));
  1170.     (void)(aset1((V126),(fix(cdar((V135))))-(V119),cdr((V135))));}
  1171.     V134= one_plus((V134));
  1172.     goto T503;}
  1173. T499:;
  1174.     (void)(sputprop((V116),VV[48],(V126)));
  1175.     if(((V127))==Cnil){
  1176.     goto T515;}
  1177.     {object V136;
  1178.     object V137;
  1179.     V136= get((V116),VV[51],Cnil);
  1180.     V138= aref1((V127),0);
  1181.     V137= cdr(/* INLINE-ARGS */V138);
  1182.     {register object V139;
  1183.     object V140;
  1184.     V139= (V136);
  1185.     V140= car((V139));
  1186. T522:;
  1187.     if(!(endp((V139)))){
  1188.     goto T523;}
  1189.     base[3]= Cnil;
  1190.     vs_top=(vs_base=base+3)+1;
  1191.     return;
  1192. T523:;
  1193.     {object V141;
  1194.     object V142;
  1195.     object V143;
  1196.     V141= aref1(symbol_value(VV[52]),fixint((V140)));
  1197.     {object V144= cdr(cdr(cdr((V141))));
  1198.     if((type_of(V144)!=t_cons) && ((V141)!= Cnil))
  1199.      FEwrong_type_argument(Scons,V144);
  1200.     V142= (V144->c.c_car);}
  1201.     {object V146= cdr(cdr((V141)));
  1202.     if((type_of(V146)!=t_cons) && ((V141)!= Cnil))
  1203.      FEwrong_type_argument(Scons,V146);
  1204.     V145= fix((V146->c.c_car));}
  1205.     V143= make_fixnum((V145)-(fix((V137))));{object V147;
  1206.     V147= symbol_value(VV[52]);
  1207.     base[6]= (V142);
  1208.     base[7]= (V126);
  1209.     base[8]= (V143);
  1210.     vs_top=(vs_base=base+6)+3;
  1211.     (void) (*Lnk135)();
  1212.     vs_top=sup;
  1213.     V148= vs_base[0];
  1214.     (void)(aset1(V147,fixint((V140)),V148));}}
  1215.     V139= cdr((V139));
  1216.     V140= car((V139));
  1217.     goto T522;}}
  1218. T515:;
  1219.     base[2]= Cnil;
  1220.     vs_top=(vs_base=base+2)+1;
  1221.     return;}
  1222. T492:;
  1223.     {object V149;
  1224.     V149= get((V116),VV[51],Cnil);
  1225.     base[2]= (V149);
  1226.     base[3]= VV[53];
  1227.     vs_top=(vs_base=base+2)+2;
  1228.     (void) (*Lnk136)();
  1229.     return;}
  1230. T463:;
  1231.     base[2]= Cnil;
  1232.     vs_top=(vs_base=base+2)+1;
  1233.     return;}
  1234.     }
  1235. }
  1236. /*    function definition for INSTREAM-NAME    */
  1237.  
  1238. static L20()
  1239. {register object *base=vs_base;
  1240.     register object *sup=base+VM20; VC20
  1241.     vs_reserve(VM20);
  1242.     {object V150;
  1243.     check_arg(1);
  1244.     V150=(base[0]);
  1245.     vs_top=sup;
  1246. TTL:;{object V151;
  1247.     V151= structure_ref((V150),VV[25],2);
  1248.     if(V151==Cnil)goto T544;
  1249.     base[1]= V151;
  1250.     vs_top=(vs_base=base+1)+1;
  1251.     return;
  1252. T544:;}
  1253.     base[1]= structure_ref((V150),VV[25],0);
  1254.     vs_top=(vs_base=base+1)+1;
  1255.     (void) (*Lnk137)();
  1256.     return;
  1257.     }
  1258. }
  1259. static object stream_name(str) object str;{return str->sm.sm_object1; }
  1260. /*    function definition for STREAM-NAME    */
  1261.  
  1262. static L21()
  1263. {    object *old_base=vs_base;
  1264.     object x;
  1265.     check_arg(1);
  1266.     x=
  1267.     stream_name(
  1268.     vs_base[0]);
  1269.     vs_top=(vs_base=old_base)+1;
  1270.     vs_base[0]=x;
  1271. }
  1272. static object closedp(str) object str;{return (str->sm.sm_fp==0 ? Ct :Cnil); }
  1273. /*    function definition for CLOSEDP    */
  1274.  
  1275. static L22()
  1276. {    object *old_base=vs_base;
  1277.     object x;
  1278.     check_arg(1);
  1279.     x=
  1280.     closedp(
  1281.     vs_base[0]);
  1282.     vs_top=(vs_base=old_base)+1;
  1283.     vs_base[0]=x;
  1284. }
  1285. /*    function definition for FIND-LINE-IN-FUN    */
  1286.  
  1287. static L23()
  1288. {register object *base=vs_base;
  1289.     register object *sup=base+VM21; VC21
  1290.     vs_reserve(VM21);
  1291.     {object V152;
  1292.     object V153;
  1293.     register object V154;
  1294.     register object V155;
  1295.     check_arg(4);
  1296.     V152=(base[0]);
  1297.     V153=(base[1]);
  1298.     V154=(base[2]);
  1299.     V155=(base[3]);
  1300.     vs_top=sup;
  1301. TTL:;
  1302.     {object V156;
  1303.     V156= Cnil;
  1304.     V156= get((V154),VV[48],Cnil);
  1305.     if(((V156))==Cnil){
  1306.     goto T551;}
  1307.     {register object V157;
  1308.     V157= (V156);
  1309.     if(((V157))==Cnil){
  1310.     goto T554;}
  1311.     {object V158;
  1312.     register object V159;
  1313.     V158= make_fixnum(length((V157)));
  1314.     V159= small_fixnum(0);
  1315. T559:;
  1316.     if(!(number_compare((V159),(V158))>=0)){
  1317.     goto T560;}
  1318.     base[5]= Cnil;
  1319.     vs_top=(vs_base=base+5)+1;
  1320.     return;
  1321. T560:;
  1322.     V160= aref1((V157),fixint((V159)));
  1323.     if(!(((V152))==(/* INLINE-ARGS */V160))){
  1324.     goto T564;}
  1325.     if(((V155))==Cnil){
  1326.     goto T567;}
  1327.     {register object V161;
  1328.     register object V162;
  1329.     V161= (V155);
  1330.     V162= number_minus(car((V161)),small_fixnum(1));
  1331.     if(type_of((V161))!=t_cons)FEwrong_type_argument(Scons,(V161));
  1332.     ((V161))->c.c_car = (V162);}
  1333.     if(!((fix(car((V155))))>(0))){
  1334.     goto T567;}
  1335.     base[5]= VV[54];
  1336.     vs_top=(vs_base=base+5)+1;
  1337.     return;
  1338. T567:;
  1339.     base[6]= (V154);
  1340.     base[7]= (V157);
  1341.     base[8]= (V159);
  1342.     vs_top=(vs_base=base+6)+3;
  1343.     (void) (*Lnk135)();
  1344.     vs_top=sup;
  1345.     setq(VV[55],vs_base[0]);
  1346.     base[5]= symbol_value(VV[55]);
  1347.     base[6]= (V153);
  1348.     vs_top=(vs_base=base+5)+2;
  1349.     (void) (*Lnk118)();
  1350.     vs_top=sup;
  1351.     base[5]= VV[54];
  1352.     vs_top=(vs_base=base+5)+1;
  1353.     return;
  1354. T564:;
  1355.     V159= one_plus((V159));
  1356.     goto T559;}
  1357. T554:;
  1358.     base[4]= Cnil;
  1359.     vs_top=(vs_base=base+4)+1;
  1360.     return;}
  1361. T551:;
  1362.     base[4]= Cnil;
  1363.     vs_top=(vs_base=base+4)+1;
  1364.     return;}
  1365.     }
  1366. }
  1367. /*    function definition for CURRENT-STEP-FUN    */
  1368.  
  1369. static L24()
  1370. {register object *base=vs_base;
  1371.     register object *sup=base+VM22; VC22
  1372.     vs_reserve(VM22);
  1373.     {object V163;
  1374.     if(vs_top-vs_base>1) too_many_arguments();
  1375.     if(vs_base>=vs_top){vs_top=sup;goto T586;}
  1376.     V163=(base[0]);
  1377.     vs_top=sup;
  1378.     goto T587;
  1379. T586:;
  1380.     vs_base=vs_top;
  1381.     (void) (*Lnk110)();
  1382.     vs_top=sup;
  1383.     V163= vs_base[0];
  1384. T587:;
  1385.     {register object V164;
  1386.     V164= one_minus((V163));
  1387. T591:;
  1388.     if(!((fix((V164)))<=(0))){
  1389.     goto T592;}
  1390.     base[1]= Cnil;
  1391.     vs_top=(vs_base=base+1)+1;
  1392.     return;
  1393. T592:;
  1394.     {register object V165;
  1395.     base[1]= (V164);
  1396.     vs_top=(vs_base=base+1)+1;
  1397.     (void) (*Lnk138)();
  1398.     vs_top=sup;
  1399.     V165= vs_base[0];
  1400.     if((get((V165),VV[48],Cnil))==Cnil){
  1401.     goto T596;}
  1402.     base[1]= (V165);
  1403.     vs_top=(vs_base=base+1)+1;
  1404.     return;}
  1405. T596:;
  1406.     V164= make_fixnum((fix((V164)))-(1));
  1407.     goto T591;}
  1408.     }
  1409. }
  1410. /*    function definition for INIT-BREAK-POINTS    */
  1411.  
  1412. static L25()
  1413. {register object *base=vs_base;
  1414.     register object *sup=base+VM23; VC23
  1415.     vs_reserve(VM23);
  1416.     check_arg(0);
  1417.     vs_top=sup;
  1418. TTL:;
  1419.     base[0]= symbol_value(VV[56]);
  1420.     base[1]= small_fixnum(0);
  1421.     vs_top=(vs_base=base+0)+2;
  1422.     siLfill_pointer_set();
  1423.     vs_top=sup;
  1424.     setq(VV[52],symbol_value(VV[56]));
  1425.     base[0]= symbol_value(VV[52]);
  1426.     vs_top=(vs_base=base+0)+1;
  1427.     return;
  1428. }
  1429. /*    function definition for STEP-INTO    */
  1430.  
  1431. static L26()
  1432. {register object *base=vs_base;
  1433.     register object *sup=base+VM24; VC24
  1434.     vs_reserve(VM24);
  1435.     {object V166;
  1436.     if(vs_top-vs_base>1) too_many_arguments();
  1437.     if(vs_base>=vs_top){vs_top=sup;goto T608;}
  1438.     V166=(base[0]);
  1439.     vs_top=sup;
  1440.     goto T609;
  1441. T608:;
  1442.     V166= small_fixnum(1);
  1443. T609:;
  1444.     if(symbol_value(VV[52])!=Cnil){
  1445.     goto T611;}
  1446.     vs_base=vs_top;
  1447.     (void) (*Lnk139)();
  1448.     vs_top=sup;
  1449. T611:;
  1450.     setq(VV[57],VV[58]);
  1451.     base[1]= VV[59];
  1452.     vs_top=(vs_base=base+1)+1;
  1453.     return;
  1454.     }
  1455. }
  1456. /*    function definition for STEP-NEXT    */
  1457.  
  1458. static L27()
  1459. {register object *base=vs_base;
  1460.     register object *sup=base+VM25; VC25
  1461.     vs_reserve(VM25);
  1462.     {object V167;
  1463.     if(vs_top-vs_base>1) too_many_arguments();
  1464.     if(vs_base>=vs_top){vs_top=sup;goto T614;}
  1465.     V167=(base[0]);
  1466.     vs_top=sup;
  1467.     goto T615;
  1468. T614:;
  1469.     V167= small_fixnum(1);
  1470. T615:;
  1471.     {object V168;
  1472.     vs_base=vs_top;
  1473.     (void) (*Lnk140)();
  1474.     vs_top=sup;
  1475.     V168= vs_base[0];
  1476.     setq(VV[60],make_cons((V167),(V168)));
  1477.     if(symbol_value(VV[52])!=Cnil){
  1478.     goto T620;}
  1479.     vs_base=vs_top;
  1480.     (void) (*Lnk139)();
  1481.     vs_top=sup;
  1482. T620:;
  1483.     setq(VV[57],VV[61]);
  1484.     base[1]= VV[59];
  1485.     vs_top=(vs_base=base+1)+1;
  1486.     return;}
  1487.     }
  1488. }
  1489. /*    function definition for MAYBE-BREAK    */
  1490.  
  1491. static L28()
  1492. {register object *base=vs_base;
  1493.     register object *sup=base+VM26; VC26
  1494.     vs_reserve(VM26);
  1495.     {object V169;
  1496.     object V170;
  1497.     object V171;
  1498.     object V172;
  1499.     check_arg(4);
  1500.     V169=(base[0]);
  1501.     V170=(base[1]);
  1502.     V171=(base[2]);
  1503.     V172=(base[3]);
  1504.     vs_top=sup;
  1505. TTL:;
  1506.     {object V173;
  1507.     V173= Cnil;
  1508.     V173= (VFUN_NARGS=2,(*(LnkLI141))((V169),(V170)));
  1509.     if(((V173))==Cnil){
  1510.     goto T625;}
  1511.     setq(VV[57],Cnil);
  1512.     if(!((length(symbol_value(VV[52])))>(0))){
  1513.     goto T631;}
  1514.     goto T630;
  1515. T631:;
  1516.     setq(VV[52],Cnil);
  1517. T630:;
  1518.     base[5]= (V171);
  1519.     base[6]= (V170);
  1520.     base[7]= (V173);
  1521.     vs_top=(vs_base=base+5)+3;
  1522.     (void) (*Lnk135)();
  1523.     vs_top=sup;
  1524.     base[4]= vs_base[0];
  1525.     base[5]= (V172);
  1526.     vs_top=(vs_base=base+4)+2;
  1527.     (void) (*Lnk118)();
  1528.     vs_top=sup;
  1529.     base[4]= Ct;
  1530.     vs_top=(vs_base=base+4)+1;
  1531.     return;
  1532. T625:;
  1533.     base[4]= Cnil;
  1534.     vs_top=(vs_base=base+4)+1;
  1535.     return;}
  1536.     }
  1537. }
  1538. /*    function definition for BREAK-STEP-INTO    */
  1539.  
  1540. static L29()
  1541. {register object *base=vs_base;
  1542.     register object *sup=base+VM27; VC27
  1543.     vs_reserve(VM27);
  1544.     {object V174;
  1545.     object V175;
  1546.     check_arg(2);
  1547.     V174=(base[0]);
  1548.     V175=(base[1]);
  1549.     vs_top=sup;
  1550. TTL:;
  1551.     {object V176;
  1552.     vs_base=vs_top;
  1553.     (void) (*Lnk140)();
  1554.     vs_top=sup;
  1555.     V176= vs_base[0];
  1556.     {object V177;
  1557.     V177= get((V176),VV[48],Cnil);
  1558.     base[2]= (V174);
  1559.     base[3]= (V177);
  1560.     base[4]= (V176);
  1561.     base[5]= (V175);
  1562.     vs_top=(vs_base=base+2)+4;
  1563.     (void) (*Lnk142)();
  1564.     return;}}
  1565.     }
  1566. }
  1567. /*    function definition for BREAK-STEP-NEXT    */
  1568.  
  1569. static L30()
  1570. {register object *base=vs_base;
  1571.     register object *sup=base+VM28; VC28
  1572.     vs_reserve(VM28);
  1573.     {object V178;
  1574.     object V179;
  1575.     check_arg(2);
  1576.     V178=(base[0]);
  1577.     V179=(base[1]);
  1578.     vs_top=sup;
  1579. TTL:;
  1580.     {object V180;
  1581.     vs_base=vs_top;
  1582.     (void) (*Lnk140)();
  1583.     vs_top=sup;
  1584.     V180= vs_base[0];
  1585.     if(!(eql(cdr(symbol_value(VV[60])),(V180)))){
  1586.     goto T648;}
  1587.     {object V181;
  1588.     V181= get((V180),VV[48],Cnil);
  1589.     base[2]= (V178);
  1590.     base[3]= (V181);
  1591.     base[4]= (V180);
  1592.     base[5]= (V179);
  1593.     vs_top=(vs_base=base+2)+4;
  1594.     (void) (*Lnk142)();
  1595.     return;}
  1596. T648:;
  1597.     base[2]= Cnil;
  1598.     vs_top=(vs_base=base+2)+1;
  1599.     return;}
  1600.     }
  1601. }
  1602. /*    function definition for *BREAK-POINTS*    */
  1603.  
  1604. static L31()
  1605. {register object *base=vs_base;
  1606.     register object *sup=base+VM29; VC29
  1607.     vs_reserve(VM29);
  1608.     {object V182;
  1609.     object V183;
  1610.     check_arg(2);
  1611.     V182=(base[0]);
  1612.     V183=(base[1]);
  1613.     vs_top=sup;
  1614. TTL:;
  1615.     {object V184;
  1616.     V184= (VFUN_NARGS=4,(*(LnkLI141))((V182),symbol_value(VV[52]),VV[62],VV[63]));
  1617.     base[2]= Ct;
  1618.     base[3]= VV[64];
  1619.     base[4]= (V184);
  1620.     vs_top=(vs_base=base+2)+3;
  1621.     Lformat();
  1622.     vs_top=sup;
  1623.     base[2]= aref1(symbol_value(VV[52]),fixint((V184)));
  1624.     base[3]= (V183);
  1625.     vs_top=(vs_base=base+2)+2;
  1626.     (void) (*Lnk118)();
  1627.     return;}
  1628.     }
  1629. }
  1630. /*    function definition for DWIM    */
  1631.  
  1632. static L32()
  1633. {register object *base=vs_base;
  1634.     register object *sup=base+VM30; VC30
  1635.     vs_reserve(VM30);
  1636.     {register object V185;
  1637.     check_arg(1);
  1638.     V185=(base[0]);
  1639.     vs_top=sup;
  1640. TTL:;
  1641.     {register object V186;
  1642.     register object V187;
  1643.     vs_base=vs_top;
  1644.     Llist_all_packages();
  1645.     vs_top=sup;
  1646.     V186= vs_base[0];
  1647.     V187= car((V186));
  1648. T666:;
  1649.     if(!(endp((V186)))){
  1650.     goto T667;}
  1651.     goto T662;
  1652. T667:;
  1653.     {register object V188;
  1654.     register object V189;
  1655.     base[3]= symbol_name((V185));
  1656.     base[4]= (V187);
  1657.     vs_top=(vs_base=base+3)+2;
  1658.     Lintern();
  1659.     if(vs_base>=vs_top){vs_top=sup;goto T675;}
  1660.     V188= vs_base[0];
  1661.     vs_base++;
  1662.     if(vs_base>=vs_top){vs_top=sup;goto T676;}
  1663.     V189= vs_base[0];
  1664.     vs_top=sup;
  1665.     goto T677;
  1666. T675:;
  1667.     V188= Cnil;
  1668. T676:;
  1669.     V189= Cnil;
  1670. T677:;
  1671.     if((get((V188),VV[48],Cnil))==Cnil){
  1672.     goto T679;}
  1673.     base[3]= (V188);
  1674.     vs_top=(vs_base=base+3)+1;
  1675.     return;
  1676. T679:;
  1677.     if((V189)!=Cnil){
  1678.     goto T671;}
  1679.     base[3]= (V188);
  1680.     vs_top=(vs_base=base+3)+1;
  1681.     Lunintern();
  1682.     vs_top=sup;}
  1683. T671:;
  1684.     V186= cdr((V186));
  1685.     V187= car((V186));
  1686.     goto T666;}
  1687. T662:;
  1688.     base[1]= Ct;
  1689.     base[2]= VV[65];
  1690.     base[3]= (V185);
  1691.     vs_top=(vs_base=base+1)+3;
  1692.     Lformat();
  1693.     return;
  1694.     }
  1695. }
  1696. /*    function definition for BREAK-FUNCTION    */
  1697.  
  1698. static L33()
  1699. {register object *base=vs_base;
  1700.     register object *sup=base+VM31; VC31
  1701.     vs_reserve(VM31);
  1702.     {register object V190;
  1703.     register object V191;
  1704.     object V192;
  1705.     if(vs_top-vs_base<1) too_few_arguments();
  1706.     if(vs_top-vs_base>3) too_many_arguments();
  1707.     V190=(base[0]);
  1708.     vs_base=vs_base+1;
  1709.     if(vs_base>=vs_top){vs_top=sup;goto T690;}
  1710.     V191=(base[1]);
  1711.     vs_base++;
  1712.     if(vs_base>=vs_top){vs_top=sup;goto T691;}
  1713.     V192=(base[2]);
  1714.     vs_top=sup;
  1715.     goto T692;
  1716. T690:;
  1717.     V191= small_fixnum(1);
  1718. T691:;
  1719.     V192= Cnil;
  1720. T692:;
  1721.     {object V193;
  1722.     V193= Cnil;
  1723.     {register object V194;
  1724.     V194= get((V190),VV[48],Cnil);
  1725.     if(((V194))!=Cnil){
  1726.     goto T697;}
  1727.     base[3]= (V190);
  1728.     vs_top=(vs_base=base+3)+1;
  1729.     (void) (*Lnk143)();
  1730.     vs_top=sup;
  1731.     V193= vs_base[0];
  1732.     if(((V193))==Cnil){
  1733.     goto T697;}
  1734.     base[3]= (V193);
  1735.     base[4]= (V191);
  1736.     base[5]= (V192);
  1737.     vs_top=(vs_base=base+3)+3;
  1738.     (void) (*Lnk144)();
  1739.     return;
  1740. T697:;
  1741.     if(!(type_of((V194))==t_array||
  1742. type_of((V194))==t_vector||
  1743. type_of((V194))==t_string||
  1744. type_of((V194))==t_bitvector)){
  1745.     goto T709;}
  1746.     goto T708;
  1747. T709:;
  1748.     base[3]= Ct;
  1749.     base[4]= VV[66];
  1750.     base[5]= (V190);
  1751.     vs_top=(vs_base=base+3)+3;
  1752.     Lformat();
  1753.     vs_top=sup;
  1754.     base[3]= Cnil;
  1755.     vs_top=(vs_base=base+3)+1;
  1756.     return;
  1757. T708:;
  1758.     {object V195;
  1759.     V196= aref1((V194),0);
  1760.     V195= cdr(/* INLINE-ARGS */V196);
  1761.     if(((V192))==Cnil){
  1762.     goto T716;}
  1763.     V191= make_fixnum((fix((V191)))-(fix((V195))));
  1764. T716:;{object V197;
  1765.     if((fix((V191)))>=(1)){
  1766.     goto T723;}
  1767.     V197= Cnil;
  1768.     goto T722;
  1769. T723:;
  1770.     V197= ((fix((V191)))<(length((V194)))?Ct:Cnil);
  1771. T722:;
  1772.     if(V197==Cnil)goto T721;
  1773.     goto T720;
  1774. T721:;}{object V198;
  1775.     base[3]= Ct;
  1776.     base[4]= VV[67];
  1777.     base[5]= (V190);
  1778.     vs_top=(vs_base=base+3)+3;
  1779.     Lformat();
  1780.     vs_top=sup;
  1781.     V198= vs_base[0];
  1782.     if(V198==Cnil)goto T725;
  1783.     goto T720;
  1784. T725:;}
  1785.     base[3]= Cnil;
  1786.     vs_top=(vs_base=base+3)+1;
  1787.     return;
  1788. T720:;
  1789.     if(!(eql((V191),small_fixnum(1)))){
  1790.     goto T730;}
  1791.     {object V199;
  1792.     base[3]= (V190);
  1793.     vs_top=(vs_base=base+3)+1;
  1794.     Lsymbol_function();
  1795.     vs_top=sup;
  1796.     V199= vs_base[0];
  1797.     if(!(type_of((V199))==t_cons)){
  1798.     goto T730;}
  1799.     if(!((car((V199)))==(VV[68]))){
  1800.     goto T730;}
  1801.     if((caddr((V199)))==Cnil){
  1802.     goto T730;}
  1803.     V191= small_fixnum(2);}
  1804. T730:;
  1805.     {register object V200;
  1806.     register object V201;
  1807.     V200= make_fixnum((length((V194)))-(fix((V191))));
  1808.     V201= small_fixnum(0);
  1809. T746:;
  1810.     if(!(number_compare((V201),(V200))>=0)){
  1811.     goto T747;}
  1812.     goto T742;
  1813. T747:;
  1814.     V202= aref1((V194),fixint((V201)));
  1815.     if((/* INLINE-ARGS */V202)==(VV[50])){
  1816.     goto T751;}
  1817.     base[6]= (V190);
  1818.     base[7]= (V194);
  1819.     base[8]= make_fixnum((fix((V191)))+(fix((V201))));
  1820.     vs_top=(vs_base=base+6)+3;
  1821.     (void) (*Lnk135)();
  1822.     vs_top=sup;
  1823.     base[5]= vs_base[0];
  1824.     vs_top=(vs_base=base+5)+1;
  1825.     (void) (*Lnk145)();
  1826.     vs_top=sup;
  1827.     base[4]= vs_base[0];
  1828.     vs_top=(vs_base=base+4)+1;
  1829.     (void) (*Lnk146)();
  1830.     vs_top=sup;
  1831.     vs_base=vs_top=base+4;
  1832.     vs_base[0]=Cnil;
  1833.     return;
  1834. T751:;
  1835.     V201= one_plus((V201));
  1836.     goto T746;}
  1837. T742:;
  1838.     base[3]= Ct;
  1839.     base[4]= VV[69];
  1840.     vs_top=(vs_base=base+3)+2;
  1841.     Lformat();
  1842.     return;}}}
  1843.     }
  1844. }
  1845. /*    function definition for INSERT-BREAK-POINT    */
  1846.  
  1847. static L34()
  1848. {register object *base=vs_base;
  1849.     register object *sup=base+VM32; VC32
  1850.     vs_reserve(VM32);
  1851.     {object V203;
  1852.     check_arg(1);
  1853.     V203=(base[0]);
  1854.     vs_top=sup;
  1855. TTL:;
  1856.     {register object V204;
  1857.     V204= Cnil;
  1858.     if(symbol_value(VV[52])!=Cnil){
  1859.     goto T766;}
  1860.     vs_base=vs_top;
  1861.     (void) (*Lnk139)();
  1862.     vs_top=sup;
  1863. T766:;{object V205;
  1864.     V205= (VFUN_NARGS=2,(*(LnkLI141))(Cnil,symbol_value(VV[52])));
  1865.     if(V205==Cnil)goto T769;
  1866.     V204= V205;
  1867.     goto T768;
  1868. T769:;}
  1869.     {object V206;
  1870.     V206= make_fixnum(length(symbol_value(VV[52])));
  1871.     (void)((VFUN_NARGS=2,(*(LnkLI132))(Cnil,symbol_value(VV[52]))));
  1872.     V204= (V206);}
  1873. T768:;
  1874.     {object V207;
  1875.     {object V208= cdr(cdr(cdr((V203))));
  1876.     if((type_of(V208)!=t_cons) && ((V203)!= Cnil))
  1877.      FEwrong_type_argument(Scons,V208);
  1878.     V207= (V208->c.c_car);}
  1879.     {object V211;
  1880.     V212= get(V207,VV[51],Cnil);
  1881.     V211= make_cons((V204),V212);
  1882.     (void)(sputprop(V207,VV[51],(V211)));}}
  1883.     (void)(aset1(symbol_value(VV[52]),fixint((V204)),(V203)));
  1884.     base[1]= (V204);
  1885.     vs_top=(vs_base=base+1)+1;
  1886.     return;}
  1887.     }
  1888. }
  1889. /*    function definition for SHORT-NAME    */
  1890.  
  1891. static L35()
  1892. {register object *base=vs_base;
  1893.     register object *sup=base+VM33; VC33
  1894.     vs_reserve(VM33);
  1895.     {object V213;
  1896.     check_arg(1);
  1897.     V213=(base[0]);
  1898.     vs_top=sup;
  1899. TTL:;
  1900.     {object V214;
  1901.     V214= (VFUN_NARGS=4,(*(LnkLI141))(VV[70],(V213),VV[71],Ct));
  1902.     if(((V214))==Cnil){
  1903.     goto T780;}
  1904.     base[1]= (V213);
  1905.     base[2]= make_fixnum((1)+(fix((V214))));
  1906.     vs_top=(vs_base=base+1)+2;
  1907.     Lsubseq();
  1908.     return;
  1909. T780:;
  1910.     base[1]= (V213);
  1911.     vs_top=(vs_base=base+1)+1;
  1912.     return;}
  1913.     }
  1914. }
  1915. /*    function definition for SHOW-BREAK-POINT    */
  1916.  
  1917. static L36()
  1918. {register object *base=vs_base;
  1919.     register object *sup=base+VM34; VC34
  1920.     vs_reserve(VM34);
  1921.     {object V215;
  1922.     check_arg(1);
  1923.     V215=(base[0]);
  1924.     vs_top=sup;
  1925. TTL:;
  1926.     {object V216;
  1927.     V216= Cnil;
  1928.     {register object V217;
  1929.     V217= aref1(symbol_value(VV[52]),fixint((V215)));
  1930.     if(((V217))==Cnil){
  1931.     goto T787;}
  1932.     if(!((car((V217)))==(Cnil))){
  1933.     goto T789;}
  1934.     V216= Ct;
  1935.     V217= cdr((V217));
  1936. T789:;
  1937.     base[1]= Ct;
  1938.     base[2]= VV[72];
  1939.     base[3]= (V215);
  1940.     base[5]= cadr((V217));
  1941.     vs_top=(vs_base=base+5)+1;
  1942.     (void) (*Lnk147)();
  1943.     vs_top=sup;
  1944.     base[4]= vs_base[0];
  1945.     base[5]= caddr((V217));
  1946.     base[6]= (V216);
  1947.     vs_top=(vs_base=base+1)+6;
  1948.     Lformat();
  1949.     vs_top=sup;
  1950.     {object V218;
  1951.     V218= cadddr((V217));
  1952.     base[1]= Ct;
  1953.     base[2]= VV[73];
  1954.     base[4]= (V218);
  1955.     base[5]= caddr((V217));
  1956.     vs_top=(vs_base=base+4)+2;
  1957.     (void) (*Lnk148)();
  1958.     vs_top=sup;
  1959.     base[3]= vs_base[0];
  1960.     base[4]= (V218);
  1961.     vs_top=(vs_base=base+1)+4;
  1962.     Lformat();
  1963.     return;}
  1964. T787:;
  1965.     base[1]= Cnil;
  1966.     vs_top=(vs_base=base+1)+1;
  1967.     return;}}
  1968.     }
  1969. }
  1970. /*    function definition for ITERATE-OVER-BKPTS    */
  1971.  
  1972. static L37()
  1973. {register object *base=vs_base;
  1974.     register object *sup=base+VM35; VC35
  1975.     vs_reserve(VM35);
  1976.     {register object V219;
  1977.     register object V220;
  1978.     check_arg(2);
  1979.     V219=(base[0]);
  1980.     V220=(base[1]);
  1981.     vs_top=sup;
  1982. TTL:;
  1983.     {register object V221;
  1984.     register object V222;
  1985.     V221= make_fixnum(length(symbol_value(VV[52])));
  1986.     V222= small_fixnum(0);
  1987. T813:;
  1988.     if(!(number_compare((V222),(V221))>=0)){
  1989.     goto T814;}
  1990.     base[3]= Cnil;
  1991.     vs_top=(vs_base=base+3)+1;
  1992.     return;
  1993. T814:;
  1994.     {register object x= (V222),V223= (V219);
  1995.     while(!endp(V223))
  1996.     if(eql(x,V223->c.c_car)){
  1997.     goto T819;
  1998.     }else V223=V223->c.c_cdr;}
  1999.     if(((V219))!=Cnil){
  2000.     goto T818;}
  2001. T819:;
  2002.     {register object V224;
  2003.     V224= aref1(symbol_value(VV[52]),fixint((V222)));{object V225;
  2004.     V225= symbol_value(VV[52]);
  2005.     {object V227= (V220);
  2006.     if((V227!= VV[53]))goto T825;
  2007.     if(((V224))==Cnil){
  2008.     goto T826;}
  2009.     {object V229= cdr(cdr(cdr((V224))));
  2010.     if((type_of(V229)!=t_cons) && ((V224)!= Cnil))
  2011.      FEwrong_type_argument(Scons,V229);
  2012.     V228= (V229->c.c_car);}
  2013.     {object V232= cdr(cdr(cdr((V224))));
  2014.     if((type_of(V232)!=t_cons) && ((V224)!= Cnil))
  2015.      FEwrong_type_argument(Scons,V232);
  2016.     V231= (V232->c.c_car);}
  2017.     V230= get(V231,VV[51],Cnil);
  2018.     V233= (VFUN_NARGS=2,(*(LnkLI121))((V222),V230));
  2019.     (void)(sputprop(V228,VV[51],/* INLINE-ARGS */V233));
  2020. T826:;
  2021.     V226= Cnil;
  2022.     goto T824;
  2023. T825:;
  2024.     if((V227!= VV[149]))goto T832;
  2025.     if(!((car((V224)))==(Cnil))){
  2026.     goto T834;}
  2027.     V226= cdr((V224));
  2028.     goto T824;
  2029. T834:;
  2030.     V226= Cnil;
  2031.     goto T824;
  2032. T832:;
  2033.     if((V227!= VV[150]))goto T836;
  2034.     if(((V224))==Cnil){
  2035.     goto T838;}
  2036.     if((car((V224)))==(Cnil)){
  2037.     goto T838;}
  2038.     V226= make_cons(Cnil,(V224));
  2039.     goto T824;
  2040. T838:;
  2041.     V226= (V224);
  2042.     goto T824;
  2043. T836:;
  2044.     if((V227!= VV[151]))goto T842;
  2045.     if(((V224))==Cnil){
  2046.     goto T843;}
  2047.     base[3]= (V222);
  2048.     vs_top=(vs_base=base+3)+1;
  2049.     (void) (*Lnk146)();
  2050.     vs_top=sup;
  2051.     princ_char(10,Cnil);
  2052. T843:;
  2053.     V226= (V224);
  2054.     goto T824;
  2055. T842:;
  2056.     V226= Cnil;}
  2057. T824:;
  2058.     (void)(aset1(V225,fixint((V222)),V226));}}
  2059. T818:;
  2060.     V222= one_plus((V222));
  2061.     goto T813;}
  2062.     }
  2063. }
  2064. /*    function definition for DISPLAY-ENV    */
  2065.  
  2066. static L38()
  2067. {register object *base=vs_base;
  2068.     register object *sup=base+VM36; VC36
  2069.     vs_reserve(VM36);
  2070.     {register object V234;
  2071.     object V235;
  2072.     check_arg(2);
  2073.     V234=(base[0]);
  2074.     V235=(base[1]);
  2075.     vs_top=sup;
  2076. TTL:;
  2077.     {register object V236;
  2078.     V236= reverse((V235));
  2079. T853:;
  2080.     if(!(type_of((V236))==t_cons)){
  2081.     goto T855;}
  2082.     base[2]= symbol_value(VV[74]);
  2083.     vs_top=(vs_base=base+2)+1;
  2084.     Lfill_pointer();
  2085.     vs_top=sup;
  2086.     V237= vs_base[0];
  2087.     if(!((fix(V237))>(fix((V234))))){
  2088.     goto T854;}
  2089. T855:;
  2090.     base[2]= Cnil;
  2091.     vs_top=(vs_base=base+2)+1;
  2092.     return;
  2093. T854:;{object V238;
  2094.     if(type_of(car((V236)))==t_cons){
  2095.     goto T865;}
  2096.     V238= Cnil;
  2097.     goto T864;
  2098. T865:;
  2099.     {object V239= cdar((V236));
  2100.     V238= (type_of(V239)==t_cons||(V239)==Cnil?Ct:Cnil);}
  2101. T864:;
  2102.     if(V238==Cnil)goto T863;
  2103.     goto T862;
  2104. T863:;}
  2105.     base[2]= Cnil;
  2106.     vs_top=(vs_base=base+2)+1;
  2107.     return;
  2108. T862:;
  2109.     base[2]= symbol_value(VV[74]);
  2110.     base[3]= VV[75];
  2111.     base[4]= caar((V236));
  2112.     base[5]= cadar((V236));
  2113.     base[6]= cdr((V236));
  2114.     vs_top=(vs_base=base+2)+5;
  2115.     Lformat();
  2116.     vs_top=sup;
  2117.     V236= cdr((V236));
  2118.     goto T853;}
  2119.     }
  2120. }
  2121. /*    function definition for APPLY-DISPLAY-FUN    */
  2122.  
  2123. static L39()
  2124. {register object *base=vs_base;
  2125.     register object *sup=base+VM37; VC37
  2126.     vs_reserve(VM37);
  2127.     bds_check;
  2128.     {object V240;
  2129.     object V241;
  2130.     object V242;
  2131.     check_arg(3);
  2132.     V240=(base[0]);
  2133.     V241=(base[1]);
  2134.     V242=(base[2]);
  2135.     vs_top=sup;
  2136. TTL:;
  2137.     bds_bind(VV[13],symbol_value(VV[10]));
  2138.     bds_bind(VV[11],symbol_value(VV[10]));
  2139.     bds_bind(VV[76],Cnil);
  2140.     bds_bind(VV[77],VV[78]);
  2141.     bds_bind(VV[12],Ct);
  2142.     base[8]= symbol_value(VV[74]);
  2143.     base[9]= small_fixnum(0);
  2144.     vs_top=(vs_base=base+8)+2;
  2145.     siLfill_pointer_set();
  2146.     vs_top=sup;
  2147.     base[8]= symbol_value(VV[74]);
  2148.     base[9]= VV[79];
  2149.     vs_top=(vs_base=base+8)+2;
  2150.     Lformat();
  2151.     vs_top=sup;
  2152.     (void)((
  2153.     (type_of((V240)) == t_sfun ?(*(object (*)())(((V240))->sfn.sfn_self)):
  2154.     (fcall.fun=((V240)),fcall.argd=2,fcalln))((V241),(V242))));
  2155.     base[8]= symbol_value(VV[74]);
  2156.     vs_top=(vs_base=base+8)+1;
  2157.     Lfill_pointer();
  2158.     vs_top=sup;
  2159.     V243= vs_base[0];
  2160.     if(!((fix(V243))>(fix((V241))))){
  2161.     goto T884;}
  2162.     base[8]= symbol_value(VV[74]);
  2163.     base[9]= (V241);
  2164.     vs_top=(vs_base=base+8)+2;
  2165.     siLfill_pointer_set();
  2166.     vs_top=sup;
  2167.     base[8]= symbol_value(VV[74]);
  2168.     base[9]= VV[80];
  2169.     vs_top=(vs_base=base+8)+2;
  2170.     Lformat();
  2171.     vs_top=sup;
  2172. T884:;
  2173.     base[8]= symbol_value(VV[74]);
  2174.     base[9]= VV[81];
  2175.     vs_top=(vs_base=base+8)+2;
  2176.     Lformat();
  2177.     vs_top=sup;
  2178.     bds_unwind1;
  2179.     bds_unwind1;
  2180.     bds_unwind1;
  2181.     bds_unwind1;
  2182.     bds_unwind1;
  2183.     base[3]= symbol_value(VV[74]);
  2184.     vs_top=(vs_base=base+3)+1;
  2185.     return;
  2186.     }
  2187. }
  2188. /*    function definition for GET-LINE-OF-FORM    */
  2189.  
  2190. static L40()
  2191. {register object *base=vs_base;
  2192.     register object *sup=base+VM38; VC38
  2193.     vs_reserve(VM38);
  2194.     {object V244;
  2195.     object V245;
  2196.     check_arg(2);
  2197.     V244=(base[0]);
  2198.     V245=(base[1]);
  2199.     vs_top=sup;
  2200. TTL:;
  2201.     {object V246;
  2202.     V246= (VFUN_NARGS=2,(*(LnkLI141))((V244),(V245)));
  2203.     if(((V246))==Cnil){
  2204.     goto T898;}
  2205.     V247= aref1((V245),0);
  2206.     base[2]= make_fixnum((fix((V246)))+(fix(cdr(/* INLINE-ARGS */V247))));
  2207.     vs_top=(vs_base=base+2)+1;
  2208.     return;
  2209. T898:;
  2210.     base[2]= Cnil;
  2211.     vs_top=(vs_base=base+2)+1;
  2212.     return;}
  2213.     }
  2214. }
  2215. /*    function definition for GET-NEXT-VISIBLE-FUN    */
  2216.  
  2217. static L41()
  2218. {register object *base=vs_base;
  2219.     register object *sup=base+VM39; VC39
  2220.     vs_reserve(VM39);
  2221.     {object V248;
  2222.     check_arg(1);
  2223.     V248=(base[0]);
  2224.     vs_top=sup;
  2225. TTL:;
  2226.     {register object V249;
  2227.     V249= (V248);
  2228. T901:;
  2229.     if(!((fix((V249)))<(fix(symbol_value(VV[82]))))){
  2230.     goto T902;}
  2231.     {register object V250;
  2232.     V250= Cnil;
  2233.     (void)((MVloc[(0)]=((V249))));
  2234.     base[1]= (V250);
  2235.     vs_top=(vs_base=base+1)+1;
  2236.     return;}
  2237. T902:;
  2238.     {register object V251;
  2239.     base[1]= (V249);
  2240.     vs_top=(vs_base=base+1)+1;
  2241.     (void) (*Lnk138)();
  2242.     vs_top=sup;
  2243.     V251= vs_base[0];
  2244.     {register object V252;
  2245.     base[1]= (V251);
  2246.     vs_top=(vs_base=base+1)+1;
  2247.     Lspecial_form_p();
  2248.     vs_top=sup;
  2249.     V252= vs_base[0];
  2250.     if(((V252))==Cnil){
  2251.     goto T913;}
  2252.     goto T907;
  2253. T913:;
  2254.     {register object V253;
  2255.     V253= get((V251),VV[83],Cnil);
  2256.     if(((V253))==Cnil){
  2257.     goto T917;}
  2258.     goto T907;
  2259. T917:;
  2260.     base[1]= (V251);
  2261.     vs_top=(vs_base=base+1)+1;
  2262.     Lfboundp();
  2263.     vs_top=sup;
  2264.     if((vs_base[0])==Cnil){
  2265.     goto T907;}
  2266.     {register object V254;
  2267.     V254= (V251);
  2268.     (void)((MVloc[(0)]=((V249))));
  2269.     base[1]= (V254);
  2270.     vs_top=(vs_base=base+1)+1;
  2271.     return;}}}}
  2272. T907:;
  2273.     V249= make_fixnum((fix((V249)))-(1));
  2274.     goto T901;}
  2275.     }
  2276. }
  2277. /*    function definition for DBL-WHAT-FRAME    */
  2278.  
  2279. static L42()
  2280. {register object *base=vs_base;
  2281.     register object *sup=base+VM40; VC40
  2282.     vs_reserve(VM40);
  2283.     {register int V255;
  2284.     check_arg(1);
  2285.     V255=fix(base[0]);
  2286.     vs_top=sup;
  2287. TTL:;
  2288.     {register int V256;
  2289.     register int V257;
  2290.     register object V258;
  2291.     V256= fix(symbol_value(VV[84]));
  2292.     V257= 0;
  2293.     V258= Cnil;
  2294. T930:;
  2295.     {register object V259;
  2296.     base[1]= make_fixnum(V256);
  2297.     vs_top=(vs_base=base+1)+1;
  2298.     (void) (*Lnk152)();
  2299.     vs_top=sup;
  2300.     V258= vs_base[0];
  2301.     V259= (V258);
  2302.     V256= fix((MVloc[(0)]));}
  2303.     if(!((V256)<=(V255))){
  2304.     goto T938;}
  2305.     base[1]= make_fixnum(V257);
  2306.     vs_top=(vs_base=base+1)+1;
  2307.     return;
  2308. T938:;
  2309.     V257= (V257)+(1);
  2310.     V256= (V256)-(1);
  2311.     goto T930;}
  2312.     }
  2313. }
  2314. /*    function definition for DBL-UP    */
  2315.  
  2316. static L43()
  2317. {register object *base=vs_base;
  2318.     register object *sup=base+VM41; VC41
  2319.     vs_reserve(VM41);
  2320.     {register object V260;
  2321.     object V261;
  2322.     check_arg(2);
  2323.     V260=(base[0]);
  2324.     V261=(base[1]);
  2325.     vs_top=sup;
  2326. TTL:;
  2327.     {object V262;
  2328.     object V263;
  2329.     object V264;
  2330.     object V265;
  2331.     object V266;
  2332.     V262= Cnil;
  2333.     V263= Cnil;
  2334.     V264= Cnil;
  2335.     V265= Cnil;
  2336.     V266= Cnil;
  2337.     base[2]= (V261);
  2338.     vs_top=(vs_base=base+2)+1;
  2339.     (void) (*Lnk153)();
  2340.     vs_top=sup;
  2341.     V262= vs_base[0];
  2342.     if(!((fix((V260)))>=(0))){
  2343.     goto T954;}
  2344.     {object V267;
  2345.     base[2]= (V260);
  2346.     base[3]= (V261);
  2347.     vs_top=(vs_base=base+2)+2;
  2348.     (void) (*Lnk154)();
  2349.     vs_top=sup;
  2350.     setq(VV[9],vs_base[0]);
  2351.     V267= symbol_value(VV[9]);
  2352.     V260= (MVloc[(0)]);
  2353.     V263= (MVloc[(1)]);
  2354.     V264= (MVloc[(2)]);
  2355.     V265= (MVloc[(3)]);
  2356.     V266= (MVloc[(4)]);}
  2357.     (void)((*(LnkLI155))());
  2358.     base[2]= make_fixnum((fix((V262)))+(fix((V260))));
  2359.     base[3]= Ct;
  2360.     base[4]= symbol_value(VV[9]);
  2361.     base[5]= (V263);
  2362.     base[6]= (V264);
  2363.     base[7]= (V265);
  2364.     base[8]= (V266);
  2365.     vs_top=(vs_base=base+2)+7;
  2366.     (void) (*Lnk156)();
  2367.     return;
  2368. T954:;
  2369.     V260= make_fixnum((fix((V262)))+(fix((V260))));
  2370.     if(!((fix((V260)))>=(0))){
  2371.     goto T982;}
  2372.     goto T981;
  2373. T982:;
  2374.     V260= small_fixnum(0);
  2375. T981:;
  2376.     V261= symbol_value(VV[84]);
  2377.     goto TTL;}
  2378.     }
  2379. }
  2380. /*    function definition for NEXT-STACK-FRAME    */
  2381.  
  2382. static L44()
  2383. {register object *base=vs_base;
  2384.     register object *sup=base+VM42; VC42
  2385.     vs_reserve(VM42);
  2386.     {object V268;
  2387.     check_arg(1);
  2388.     V268=(base[0]);
  2389.     vs_top=sup;
  2390. TTL:;
  2391.     {register object V269;
  2392.     register object V270;
  2393.     register object V271;
  2394.     register object V272;
  2395.     object V273;
  2396.     V269= Cnil;
  2397.     V270= Cnil;
  2398.     V271= Cnil;
  2399.     V272= Cnil;
  2400.     V273= Cnil;
  2401.     if(!((fix((V268)))<(fix(symbol_value(VV[82]))))){
  2402.     goto T994;}
  2403.     (void)((MVloc[(0)]=(Cnil)));
  2404.     (void)((MVloc[(1)]=(Cnil)));
  2405.     (void)((MVloc[(2)]=(Cnil)));
  2406.     (void)((MVloc[(3)]=(Cnil)));
  2407.     base[1]= Cnil;
  2408.     vs_top=(vs_base=base+1)+1;
  2409.     return;
  2410. T994:;
  2411.     {object V275;
  2412.     V275= Cnil;
  2413.     {object V276;
  2414.     base[1]= (V268);
  2415.     vs_top=(vs_base=base+1)+1;
  2416.     (void) (*Lnk152)();
  2417.     vs_top=sup;
  2418.     V275= vs_base[0];
  2419.     V276= (V275);
  2420.     V271= (MVloc[(0)]);}
  2421.     V273= (V275);
  2422.     {object V277;
  2423.     V269= get((V275),VV[48],Cnil);
  2424.     if(((V269))!=Cnil){
  2425.     goto T1009;}
  2426.     V277= Cnil;
  2427.     goto T1008;
  2428. T1009:;
  2429.     {register object V278;
  2430.     register object V279;
  2431.     V278= make_fixnum((fix((V268)))+(1));
  2432.     V279= Cnil;
  2433. T1014:;
  2434.     if(!(number_compare((V278),(V271))<=0)){
  2435.     goto T1015;}
  2436.     V277= Cnil;
  2437.     goto T1008;
  2438. T1015:;
  2439.     base[1]= (V278);
  2440.     vs_top=(vs_base=base+1)+1;
  2441.     (void) (*Lnk112)();
  2442.     vs_top=sup;
  2443.     V279= vs_base[0];
  2444.     base[2]= (V278);
  2445.     vs_top=(vs_base=base+2)+1;
  2446.     (void) (*Lnk112)();
  2447.     vs_top=sup;
  2448.     base[1]= vs_base[0];
  2449.     base[2]= (V269);
  2450.     vs_top=(vs_base=base+1)+2;
  2451.     (void) (*Lnk157)();
  2452.     vs_top=sup;
  2453.     V270= vs_base[0];
  2454.     if(((V270))==Cnil){
  2455.     goto T1022;}
  2456.     {register object V280;
  2457.     V280= (V271);
  2458.     (void)((MVloc[(0)]=((V275))));
  2459.     (void)((MVloc[(1)]=((V270))));
  2460.     V281= aref1((V269),0);
  2461.     (void)((MVloc[(2)]=(car(/* INLINE-ARGS */V281))));
  2462.     base[2]= (V278);
  2463.     vs_top=(vs_base=base+2)+1;
  2464.     (void) (*Lnk108)();
  2465.     vs_top=sup;
  2466.     V272= vs_base[0];
  2467.     base[1]= (V272);
  2468.     vs_top=(vs_base=base+1)+1;
  2469.     (void) (*Lnk109)();
  2470.     vs_top=sup;
  2471.     V282= vs_base[0];
  2472.     base[1]= one_plus((V272));
  2473.     vs_top=(vs_base=base+1)+1;
  2474.     (void) (*Lnk109)();
  2475.     vs_top=sup;
  2476.     V283= vs_base[0];
  2477.     base[1]= number_plus((V272),small_fixnum(2));
  2478.     vs_top=(vs_base=base+1)+1;
  2479.     (void) (*Lnk109)();
  2480.     vs_top=sup;
  2481.     V284= vs_base[0];
  2482.     V285= list(3,V282,V283,V284);
  2483.     (void)((MVloc[(3)]=(/* INLINE-ARGS */V285)));
  2484.     base[1]= (V280);
  2485.     vs_top=(vs_base=base+1)+1;
  2486.     return;}
  2487. T1022:;
  2488.     V278= make_fixnum((fix((V278)))-(1));
  2489.     goto T1014;}
  2490. T1008:;
  2491.     if(((V277))==Cnil){
  2492.     goto T1045;}
  2493.     base[1]= (V277);
  2494.     vs_top=(vs_base=base+1)+1;
  2495.     return;
  2496. T1045:;
  2497.     base[1]= (V273);
  2498.     vs_top=(vs_base=base+1)+1;
  2499.     Lspecial_form_p();
  2500.     vs_top=sup;
  2501.     if((vs_base[0])==Cnil){
  2502.     goto T1048;}
  2503.     base[1]= Cnil;
  2504.     vs_top=(vs_base=base+1)+1;
  2505.     return;
  2506. T1048:;
  2507.     {object V286;
  2508.     V286= get((V273),VV[83],Cnil);
  2509.     if(((V286))==Cnil){
  2510.     goto T1053;}
  2511.     base[1]= (V286);
  2512.     vs_top=(vs_base=base+1)+1;
  2513.     return;
  2514. T1053:;
  2515.     base[1]= (V273);
  2516.     vs_top=(vs_base=base+1)+1;
  2517.     Lfboundp();
  2518.     vs_top=sup;
  2519.     if((vs_base[0])==Cnil){
  2520.     goto T1056;}
  2521.     (void)((MVloc[(0)]=((V273))));
  2522.     (void)((MVloc[(1)]=(Cnil)));
  2523.     (void)((MVloc[(2)]=(Cnil)));
  2524.     base[1]= (V271);
  2525.     vs_top=(vs_base=base+1)+1;
  2526.     (void) (*Lnk158)();
  2527.     vs_top=sup;
  2528.     if((vs_base[0])==Cnil){
  2529.     goto T1065;}
  2530.     V288= Cnil;
  2531.     goto T1063;
  2532. T1065:;
  2533.     {object V289;
  2534.     base[1]= (V271);
  2535.     vs_top=(vs_base=base+1)+1;
  2536.     (void) (*Lnk108)();
  2537.     vs_top=sup;
  2538.     V289= vs_base[0];
  2539.     base[1]= (V289);
  2540.     vs_top=(vs_base=base+1)+1;
  2541.     (void) (*Lnk109)();
  2542.     vs_top=sup;
  2543.     V290= vs_base[0];
  2544.     base[1]= one_plus((V289));
  2545.     vs_top=(vs_base=base+1)+1;
  2546.     (void) (*Lnk109)();
  2547.     vs_top=sup;
  2548.     V291= vs_base[0];
  2549.     base[1]= make_fixnum((fix((V289)))+(2));
  2550.     vs_top=(vs_base=base+1)+1;
  2551.     (void) (*Lnk109)();
  2552.     vs_top=sup;
  2553.     V292= vs_base[0];
  2554.     V288= list(3,V290,V291,V292);}
  2555. T1063:;
  2556.     (void)((MVloc[(3)]=(V288)));
  2557.     base[1]= V271;
  2558.     vs_top=(vs_base=base+1)+1;
  2559.     return;
  2560. T1056:;
  2561.     base[1]= Cnil;
  2562.     vs_top=(vs_base=base+1)+1;
  2563.     return;}}}}
  2564.     }
  2565. }
  2566. /*    function definition for NTH-STACK-FRAME    */
  2567.  
  2568. static L45()
  2569. {register object *base=vs_base;
  2570.     register object *sup=base+VM43; VC43
  2571.     vs_reserve(VM43);
  2572.     {register object V293;
  2573.     register object V294;
  2574.     if(vs_top-vs_base<1) too_few_arguments();
  2575.     if(vs_top-vs_base>2) too_many_arguments();
  2576.     V293=(base[0]);
  2577.     vs_base=vs_base+1;
  2578.     if(vs_base>=vs_top){vs_top=sup;goto T1076;}
  2579.     V294=(base[1]);
  2580.     vs_top=sup;
  2581.     goto T1077;
  2582. T1076:;
  2583.     V294= symbol_value(VV[84]);
  2584. T1077:;
  2585.     {register object V295;
  2586.     object V296;
  2587.     object V297;
  2588.     object V298;
  2589.     register object V299;
  2590.     V295= Cnil;
  2591.     V296= Cnil;
  2592.     V297= Cnil;
  2593.     V298= Cnil;
  2594.     V299= Cnil;
  2595.     if(!((fix((V293)))>=(0))){
  2596.     goto T1085;}
  2597.     goto T1084;
  2598. T1085:;
  2599.     V293= small_fixnum(0);
  2600. T1084:;
  2601.     {object V300;
  2602.     register object V301;
  2603.     V300= make_fixnum((fix((V293)))+(1));
  2604.     V301= small_fixnum(0);
  2605. T1092:;
  2606.     if(!(number_compare((V301),(V300))>=0)){
  2607.     goto T1093;}
  2608.     goto T1088;
  2609. T1093:;
  2610.     base[3]= (V294);
  2611.     vs_top=(vs_base=base+3)+1;
  2612.     (void) (*Lnk159)();
  2613.     vs_top=sup;
  2614.     V299= vs_base[0];
  2615.     if(((V299))==Cnil){
  2616.     goto T1102;}
  2617.     {register object V302;
  2618.     V294= (V299);
  2619.     V302= (V294);
  2620.     V295= (MVloc[(0)]);
  2621.     V296= (MVloc[(1)]);
  2622.     V297= (MVloc[(2)]);
  2623.     V298= (MVloc[(3)]);}
  2624.     V294= make_fixnum((fix((V299)))-(1));
  2625.     goto T1100;
  2626. T1102:;
  2627.     V293= make_fixnum((fix((V301)))-(1));
  2628.     goto T1088;
  2629. T1100:;
  2630.     V301= one_plus((V301));
  2631.     goto T1092;}
  2632. T1088:;
  2633.     V294= make_fixnum((fix((V294)))+(1));
  2634.     base[2]= (V294);
  2635.     vs_top=(vs_base=base+2)+1;
  2636.     (void) (*Lnk138)();
  2637.     vs_top=sup;
  2638.     V295= vs_base[0];
  2639.     (void)((MVloc[(0)]=((V293))));
  2640.     (void)((MVloc[(1)]=((V295))));
  2641.     (void)((MVloc[(2)]=((V296))));
  2642.     (void)((MVloc[(3)]=((V297))));
  2643.     (void)((MVloc[(4)]=((V298))));
  2644.     base[2]= V294;
  2645.     vs_top=(vs_base=base+2)+1;
  2646.     return;}
  2647.     }
  2648. }
  2649. /*    function definition for DBL-BACKTRACE    */
  2650.  
  2651. static L46()
  2652. {register object *base=vs_base;
  2653.     register object *sup=base+VM44; VC44
  2654.     vs_reserve(VM44);
  2655.     {object V304;
  2656.     register object V305;
  2657.     if(vs_top-vs_base>2) too_many_arguments();
  2658.     if(vs_base>=vs_top){vs_top=sup;goto T1130;}
  2659.     V304=(base[0]);
  2660.     vs_base++;
  2661.     if(vs_base>=vs_top){vs_top=sup;goto T1131;}
  2662.     V305=(base[1]);
  2663.     vs_top=sup;
  2664.     goto T1132;
  2665. T1130:;
  2666.     V304= small_fixnum(1000);
  2667. T1131:;
  2668.     V305= symbol_value(VV[84]);
  2669. T1132:;
  2670.     {register object V306;
  2671.     register object V307;
  2672.     register object V308;
  2673.     register object V309;
  2674.     register object V310;
  2675.     V306= Cnil;
  2676.     V307= Cnil;
  2677.     V308= Cnil;
  2678.     V309= Cnil;
  2679.     V310= small_fixnum(0);
  2680. T1142:;
  2681.     {object V311;
  2682.     base[2]= (V305);
  2683.     vs_top=(vs_base=base+2)+1;
  2684.     (void) (*Lnk159)();
  2685.     vs_top=sup;
  2686.     V305= vs_base[0];
  2687.     V311= (V305);
  2688.     V306= (MVloc[(0)]);
  2689.     V308= (MVloc[(1)]);
  2690.     V307= (MVloc[(2)]);
  2691.     V309= (MVloc[(3)]);}
  2692.     if((V306)!=Cnil){
  2693.     goto T1156;}
  2694.     goto T1140;
  2695. T1156:;
  2696.     base[2]= (V310);
  2697.     base[3]= Cnil;
  2698.     base[4]= (V305);
  2699.     base[5]= (V306);
  2700.     base[6]= (V308);
  2701.     base[7]= (V307);
  2702.     base[8]= (V309);
  2703.     vs_top=(vs_base=base+2)+7;
  2704.     (void) (*Lnk156)();
  2705.     vs_top=sup;
  2706.     V310= number_plus((V310),small_fixnum(1));
  2707.     if(!((fix((V310)))>=(fix((V304))))){
  2708.     goto T1167;}
  2709.     vs_base=vs_top=base+2;
  2710.     vs_base[0]=Cnil;
  2711.     vs_top=sup;
  2712.     goto T1140;
  2713. T1167:;
  2714.     V305= make_fixnum((fix((V305)))-(1));
  2715.     goto T1142;
  2716. T1140:;
  2717.     vs_base=vs_top=base+2;
  2718.     vs_base[0]=Cnil;
  2719.     return;}
  2720.     }
  2721. }
  2722. /*    function definition for DISPLAY-COMPILED-ENV    */
  2723.  
  2724. static L47()
  2725. {register object *base=vs_base;
  2726.     register object *sup=base+VM45; VC45
  2727.     vs_reserve(VM45);
  2728.     {register object V312;
  2729.     object V313;
  2730.     check_arg(2);
  2731.     V312=(base[0]);
  2732.     V313=(base[1]);
  2733.     vs_top=sup;
  2734. TTL:;
  2735.     {register object V314;
  2736.     register object V315;
  2737.     base[4]= (V313);
  2738.     vs_top=(vs_base=base+4)+1;
  2739.     (void) (*Lnk108)();
  2740.     vs_top=sup;
  2741.     V314= vs_base[0];
  2742.     base[4]= one_plus((V313));
  2743.     vs_top=(vs_base=base+4)+1;
  2744.     (void) (*Lnk108)();
  2745.     vs_top=sup;
  2746.     V316= vs_base[0];
  2747.     vs_base=vs_top;
  2748.     (void) (*Lnk160)();
  2749.     vs_top=sup;
  2750.     V317= vs_base[0];
  2751.     V315= (number_compare(V316,V317)<=0?(V316):V317);
  2752.     base[4]= symbol_value(VV[74]);
  2753.     base[5]= VV[85];
  2754.     vs_top=(vs_base=base+4)+2;
  2755.     Lformat();
  2756.     vs_top=sup;
  2757.     {register object V318;
  2758.     register object V319;
  2759.     base[4]= (V313);
  2760.     vs_top=(vs_base=base+4)+1;
  2761.     (void) (*Lnk138)();
  2762.     vs_top=sup;
  2763.     V320= vs_base[0];
  2764.     V319= get(V320,VV[14],Cnil);
  2765.     V318= (V314);
  2766. T1185:;
  2767.     if((fix((V318)))>=(fix((V315)))){
  2768.     goto T1187;}
  2769.     base[4]= symbol_value(VV[74]);
  2770.     vs_top=(vs_base=base+4)+1;
  2771.     Lfill_pointer();
  2772.     vs_top=sup;
  2773.     V321= vs_base[0];
  2774.     if(!((fix(V321))>(fix((V312))))){
  2775.     goto T1186;}
  2776. T1187:;
  2777.     base[4]= Cnil;
  2778.     vs_top=(vs_base=base+4)+1;
  2779.     return;
  2780. T1186:;
  2781.     base[4]= symbol_value(VV[74]);
  2782.     base[5]= VV[86];{object V322;
  2783.     V322= car((V319));
  2784.     if(V322==Cnil)goto T1198;
  2785.     base[6]= V322;
  2786.     goto T1197;
  2787. T1198:;}
  2788.     base[6]= VV[87];
  2789. T1197:;
  2790.     if((car((V319)))!=Cnil){
  2791.     goto T1202;}
  2792.     base[7]= make_fixnum((fix((V318)))-(fix((V314))));
  2793.     goto T1200;
  2794. T1202:;
  2795.     base[7]= Cnil;
  2796. T1200:;
  2797.     base[9]= (V318);
  2798.     vs_top=(vs_base=base+9)+1;
  2799.     (void) (*Lnk109)();
  2800.     vs_top=sup;
  2801.     base[8]= vs_base[0];
  2802.     V318= make_fixnum((fix((V318)))+(1));
  2803.     base[9]= ((fix((V318)))<(fix((V315)))?Ct:Cnil);
  2804.     vs_top=(vs_base=base+4)+6;
  2805.     Lformat();
  2806.     vs_top=sup;
  2807.     V319= cdr((V319));
  2808.     goto T1185;}}
  2809.     }
  2810. }
  2811. /*    function definition for COMPUTING-ARGS-P    */
  2812.  
  2813. static L48()
  2814. {register object *base=vs_base;
  2815.     register object *sup=base+VM46; VC46
  2816.     vs_reserve(VM46);
  2817.     {object V323;
  2818.     check_arg(1);
  2819.     V323=(base[0]);
  2820.     vs_top=sup;
  2821. TTL:;
  2822.     base[1]= (V323);
  2823.     vs_top=(vs_base=base+1)+1;
  2824.     (void) (*Lnk112)();
  2825.     vs_top=sup;
  2826.     V324= vs_base[0];
  2827.     if(type_of(V324)==t_cons){
  2828.     goto T1211;}
  2829.     base[1]= Cnil;
  2830.     vs_top=(vs_base=base+1)+1;
  2831.     return;
  2832. T1211:;
  2833.     if(number_compare((V323),small_fixnum(3))>0){
  2834.     goto T1215;}
  2835.     base[1]= Cnil;
  2836.     vs_top=(vs_base=base+1)+1;
  2837.     return;
  2838. T1215:;
  2839.     base[1]= (V323);
  2840.     vs_top=(vs_base=base+1)+1;
  2841.     (void) (*Lnk112)();
  2842.     vs_top=sup;
  2843.     V327= vs_base[0];
  2844.     {register object x= car(V327),V326= VV[88];
  2845.     while(!endp(V326))
  2846.     if(eql(x,V326->c.c_car)){
  2847.     V325= V326;
  2848.     goto T1217;
  2849.     }else V326=V326->c.c_cdr;
  2850.     V325= Cnil;}
  2851. T1217:;
  2852.     base[1]= ((V325)==Cnil?Ct:Cnil);
  2853.     vs_top=(vs_base=base+1)+1;
  2854.     return;
  2855.     }
  2856. }
  2857. /*    function definition for PRINT-STACK-FRAME    */
  2858.  
  2859. static L49()
  2860. {register object *base=vs_base;
  2861.     register object *sup=base+VM47; VC47
  2862.     vs_reserve(VM47);
  2863.     {object V328;
  2864.     object V329;
  2865.     register object V330;
  2866.     object V331;
  2867.     object V332;
  2868.     object V333;
  2869.     object V334;
  2870.     if(vs_top-vs_base<4) too_few_arguments();
  2871.     if(vs_top-vs_base>7) too_many_arguments();
  2872.     V328=(base[0]);
  2873.     V329=(base[1]);
  2874.     V330=(base[2]);
  2875.     V331=(base[3]);
  2876.     vs_base=vs_base+4;
  2877.     if(vs_base>=vs_top){vs_top=sup;goto T1220;}
  2878.     V332=(base[4]);
  2879.     vs_base++;
  2880.     if(vs_base>=vs_top){vs_top=sup;goto T1221;}
  2881.     V333=(base[5]);
  2882.     vs_base++;
  2883.     if(vs_base>=vs_top){vs_top=sup;goto T1222;}
  2884.     V334=(base[6]);
  2885.     vs_top=sup;
  2886.     goto T1223;
  2887. T1220:;
  2888.     V332= Cnil;
  2889. T1221:;
  2890.     V333= Cnil;
  2891. T1222:;
  2892.     V334= Cnil;
  2893. T1223:;
  2894.     if(((V329))==Cnil){
  2895.     goto T1227;}
  2896.     if(((V332))==Cnil){
  2897.     goto T1227;}
  2898.     base[7]= symbol_value(VV[1]);
  2899.     base[8]= VV[89];
  2900.     base[9]= (V333);
  2901.     base[10]= (V332);
  2902.     vs_top=(vs_base=base+7)+4;
  2903.     Lformat();
  2904.     vs_top=sup;
  2905. T1227:;
  2906.     {object V335;
  2907.     base[7]= (V330);
  2908.     vs_top=(vs_base=base+7)+1;
  2909.     (void) (*Lnk161)();
  2910.     vs_top=sup;
  2911.     V335= vs_base[0];
  2912.     base[7]= symbol_value(VV[1]);
  2913.     base[8]= VV[90];
  2914.     base[9]= (V328);
  2915.     if((V335)==Cnil){
  2916.     base[10]= Cnil;
  2917.     goto T1242;}
  2918.     base[10]= VV[91];
  2919. T1242:;
  2920.     base[11]= (V331);
  2921.     base[13]= (V330);
  2922.     vs_top=(vs_base=base+13)+1;
  2923.     (void) (*Lnk158)();
  2924.     vs_top=sup;
  2925.     if((vs_base[0])!=Cnil){
  2926.     goto T1246;}
  2927.     base[13]= VV[92];
  2928.     base[14]= small_fixnum(80);
  2929.     base[17]= (V330);
  2930.     vs_top=(vs_base=base+17)+1;
  2931.     (void) (*Lnk108)();
  2932.     vs_top=sup;
  2933.     base[16]= vs_base[0];
  2934.     vs_top=(vs_base=base+16)+1;
  2935.     (void) (*Lnk109)();
  2936.     vs_top=sup;
  2937.     V336= vs_base[0];
  2938.     base[15]= car(V336);
  2939.     vs_top=(vs_base=base+13)+3;
  2940.     (void) (*Lnk162)();
  2941.     vs_top=sup;
  2942.     base[12]= vs_base[0];
  2943.     goto T1244;
  2944. T1246:;
  2945.     base[13]= VV[93];
  2946.     base[14]= small_fixnum(80);
  2947.     base[15]= (V330);
  2948.     vs_top=(vs_base=base+13)+3;
  2949.     (void) (*Lnk162)();
  2950.     vs_top=sup;
  2951.     base[12]= vs_base[0];
  2952. T1244:;
  2953.     vs_top=(vs_base=base+7)+6;
  2954.     Lformat();
  2955.     vs_top=sup;
  2956.     if(((V333))==Cnil){
  2957.     goto T1258;}
  2958.     base[7]= symbol_value(VV[1]);
  2959.     base[8]= VV[94];
  2960.     base[9]= (V333);
  2961.     base[10]= (V332);
  2962.     vs_top=(vs_base=base+7)+4;
  2963.     Lformat();
  2964.     vs_top=sup;
  2965. T1258:;
  2966.     base[7]= symbol_value(VV[1]);
  2967.     base[8]= VV[95];
  2968.     base[9]= (V330);
  2969.     vs_top=(vs_base=base+7)+3;
  2970.     Lformat();
  2971.     return;}
  2972.     }
  2973. }
  2974. /*    function definition for MAKE-BREAK-POINT    */
  2975.  
  2976. static L50()
  2977. {register object *base=vs_base;
  2978.     register object *sup=base+VM48; VC48
  2979.     vs_reserve(VM48);
  2980.     {object V337;
  2981.     object V338;
  2982.     object V339;
  2983.     check_arg(3);
  2984.     V337=(base[0]);
  2985.     V338=(base[1]);
  2986.     V339=(base[2]);
  2987.     vs_top=sup;
  2988. TTL:;
  2989.     V340= aref1((V338),fixint((V339)));
  2990.     V341= aref1((V338),0);
  2991.     V342= car(/* INLINE-ARGS */V341);
  2992.     V343= aref1((V338),0);
  2993.     V344 = make_fixnum((fix(cdr(/* INLINE-ARGS */V343)))+(fix((V339))));
  2994.     base[3]= list(4,/* INLINE-ARGS */V340,/* INLINE-ARGS */V342,V344,(V337));
  2995.     vs_top=(vs_base=base+3)+1;
  2996.     return;
  2997.     }
  2998. }
  2999. /*    function definition for RELATIVE-LINE    */
  3000.  
  3001. static L51()
  3002. {register object *base=vs_base;
  3003.     register object *sup=base+VM49; VC49
  3004.     vs_reserve(VM49);
  3005.     {object V345;
  3006.     object V346;
  3007.     check_arg(2);
  3008.     V345=(base[0]);
  3009.     V346=(base[1]);
  3010.     vs_top=sup;
  3011. TTL:;
  3012.     {object V347;
  3013.     V347= get((V345),VV[48],Cnil);
  3014.     if(((V347))==Cnil){
  3015.     goto T1270;}
  3016.     V348= aref1((V347),0);
  3017.     base[2]= make_fixnum((fix((V346)))-(fix(cdr(/* INLINE-ARGS */V348))));
  3018.     vs_top=(vs_base=base+2)+1;
  3019.     return;
  3020. T1270:;
  3021.     base[2]= small_fixnum(0);
  3022.     vs_top=(vs_base=base+2)+1;
  3023.     return;}
  3024.     }
  3025. }
  3026. /*    function definition for SAFE-EVAL    */
  3027.  
  3028. static L52()
  3029. {register object *base=vs_base;
  3030.     register object *sup=base+VM50; VC50
  3031.     vs_reserve(VM50);
  3032.     bds_check;
  3033.     {register object V349;
  3034.     object V350;
  3035.     check_arg(2);
  3036.     V349=(base[0]);
  3037.     V350=(base[1]);
  3038.     vs_top=sup;
  3039. TTL:;
  3040.     bds_bind(VV[96],Cnil);
  3041.     bds_bind(VV[97],symbol_value(VV[98]));
  3042.     bds_bind(VV[1],symbol_value(VV[98]));
  3043.     if(!(type_of((V349))==t_symbol)){
  3044.     goto T1272;}
  3045.     base[5]= (V349);
  3046.     vs_top=(vs_base=base+5)+1;
  3047.     Lboundp();
  3048.     vs_top=sup;
  3049.     if((vs_base[0])!=Cnil){
  3050.     goto T1272;}
  3051.     {register object x= (V349),V351= car((V350));
  3052.     while(!endp(V351))
  3053.     if(type_of(V351->c.c_car)==t_cons &&eql(x,V351->c.c_car->c.c_car)){
  3054.     goto T1272;
  3055.     }else V351=V351->c.c_cdr;}
  3056.     base[5]= VV[99];
  3057.     vs_top=(vs_base=base+5)+1;
  3058.     bds_unwind1;
  3059.     bds_unwind1;
  3060.     bds_unwind1;
  3061.     return;
  3062. T1272:;
  3063.     {object V352;
  3064.     object V353;
  3065.     V354= list(2,VV[101],(V349));
  3066.     base[5]= list(5,VV[100],/* INLINE-ARGS */V354,Cnil,Cnil,list(2,VV[101],(V350)));
  3067.     vs_top=(vs_base=base+5)+1;
  3068.     (void) (*Lnk163)();
  3069.     if(vs_base>=vs_top){vs_top=sup;goto T1282;}
  3070.     V352= vs_base[0];
  3071.     vs_base++;
  3072.     if(vs_base>=vs_top){vs_top=sup;goto T1283;}
  3073.     V353= vs_base[0];
  3074.     vs_top=sup;
  3075.     goto T1284;
  3076. T1282:;
  3077.     V352= Cnil;
  3078. T1283:;
  3079.     V353= Cnil;
  3080. T1284:;
  3081.     if(((V352))==Cnil){
  3082.     goto T1286;}
  3083.     base[5]= VV[99];
  3084.     vs_top=(vs_base=base+5)+1;
  3085.     bds_unwind1;
  3086.     bds_unwind1;
  3087.     bds_unwind1;
  3088.     return;
  3089. T1286:;
  3090.     base[5]= (V353);
  3091.     vs_top=(vs_base=base+5)+1;
  3092.     bds_unwind1;
  3093.     bds_unwind1;
  3094.     bds_unwind1;
  3095.     return;}
  3096.     }
  3097. }
  3098. /*    function definition for SET-BACK    */
  3099.  
  3100. static L53()
  3101. {register object *base=vs_base;
  3102.     register object *sup=base+VM51; VC51
  3103.     vs_reserve(VM51);
  3104.     {register object V355;
  3105.     register object V356;
  3106.     check_arg(2);
  3107.     V355=(base[0]);
  3108.     V356=(base[1]);
  3109.     vs_top=sup;
  3110. TTL:;
  3111.     {object V357;
  3112.     V357= symbol_value(VV[9]);
  3113.     setq(VV[102],Cnil);
  3114.     setq(VV[9],(V357));
  3115.     if(((V356))==Cnil){
  3116.     goto T1295;}
  3117.     setq(VV[0],(V356));
  3118.     goto T1293;
  3119. T1295:;
  3120.     base[3]= (V357);
  3121.     vs_top=(vs_base=base+3)+1;
  3122.     (void) (*Lnk108)();
  3123.     vs_top=sup;
  3124.     base[2]= vs_base[0];
  3125.     vs_top=(vs_base=base+2)+1;
  3126.     (void) (*Lnk109)();
  3127.     vs_top=sup;
  3128.     V358= vs_base[0];
  3129.     (void)(make_cons(V358,Cnil));
  3130. T1293:;
  3131.     if(((V355))==Cnil){
  3132.     goto T1301;}
  3133.     base[2]= symbol_value(VV[1]);
  3134.     base[3]= VV[103];
  3135.     base[4]= cadr((V355));
  3136.     base[5]= caddr((V355));
  3137.     vs_top=(vs_base=base+2)+4;
  3138.     Lformat();
  3139.     vs_top=sup;
  3140.     base[2]= symbol_value(VV[1]);
  3141.     base[3]= VV[104];
  3142.     base[4]= cadr((V355));
  3143.     base[5]= caddr((V355));
  3144.     vs_top=(vs_base=base+2)+4;
  3145.     Lformat();
  3146.     vs_top=sup;
  3147. T1301:;
  3148.     {register object V359;
  3149.     register object V360;
  3150.     V359= symbol_value(VV[105]);
  3151.     V360= car((V359));
  3152. T1316:;
  3153.     if(!(endp((V359)))){
  3154.     goto T1317;}
  3155.     base[3]= Cnil;
  3156.     vs_top=(vs_base=base+3)+1;
  3157.     return;
  3158. T1317:;
  3159.     {register object V361;
  3160.     base[3]= (V360);
  3161.     base[4]= (V356);
  3162.     vs_top=(vs_base=base+3)+2;
  3163.     (void) (*Lnk164)();
  3164.     vs_top=sup;
  3165.     V361= vs_base[0];
  3166.     if(!(((V361))==(VV[99]))){
  3167.     goto T1325;}
  3168.     goto T1321;
  3169. T1325:;
  3170.     base[3]= Ct;
  3171.     base[4]= VV[106];
  3172.     base[5]= (V360);
  3173.     base[6]= (V361);
  3174.     vs_top=(vs_base=base+3)+4;
  3175.     Lformat();
  3176.     vs_top=sup;}
  3177. T1321:;
  3178.     V359= cdr((V359));
  3179.     V360= car((V359));
  3180.     goto T1316;}}
  3181.     }
  3182. }
  3183. static LnkT164(){ call_or_link(VV[164],&Lnk164);} /* SAFE-EVAL */
  3184. static LnkT163(){ call_or_link(VV[163],&Lnk163);} /* ERROR-SET */
  3185. static LnkT162(){ call_or_link(VV[162],&Lnk162);} /* APPLY-DISPLAY-FUN */
  3186. static LnkT161(){ call_or_link(VV[161],&Lnk161);} /* COMPUTING-ARGS-P */
  3187. static LnkT160(){ call_or_link(VV[160],&Lnk160);} /* VS-TOP */
  3188. static LnkT159(){ call_or_link(VV[159],&Lnk159);} /* NEXT-STACK-FRAME */
  3189. static LnkT158(){ call_or_link(VV[158],&Lnk158);} /* IHS-NOT-INTERPRETED-ENV */
  3190. static LnkT157(){ call_or_link(VV[157],&Lnk157);} /* GET-LINE-OF-FORM */
  3191. static LnkT156(){ call_or_link(VV[156],&Lnk156);} /* PRINT-STACK-FRAME */
  3192. static object  LnkTLI155(){return call_proc0(VV[155],&LnkLI155);} /* SET-ENV */
  3193. static LnkT154(){ call_or_link(VV[154],&Lnk154);} /* NTH-STACK-FRAME */
  3194. static LnkT153(){ call_or_link(VV[153],&Lnk153);} /* DBL-WHAT-FRAME */
  3195. static LnkT152(){ call_or_link(VV[152],&Lnk152);} /* GET-NEXT-VISIBLE-FUN */
  3196. static LnkT148(){ call_or_link(VV[148],&Lnk148);} /* RELATIVE-LINE */
  3197. static LnkT147(){ call_or_link(VV[147],&Lnk147);} /* SHORT-NAME */
  3198. static LnkT146(){ call_or_link(VV[146],&Lnk146);} /* SHOW-BREAK-POINT */
  3199. static LnkT145(){ call_or_link(VV[145],&Lnk145);} /* INSERT-BREAK-POINT */
  3200. static LnkT144(){ call_or_link(VV[144],&Lnk144);} /* BREAK-FUNCTION */
  3201. static LnkT143(){ call_or_link(VV[143],&Lnk143);} /* DWIM */
  3202. static LnkT142(){ call_or_link(VV[142],&Lnk142);} /* MAYBE-BREAK */
  3203. static object  LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[141],&LnkLI141,ap);} /* POSITION */
  3204. static LnkT140(){ call_or_link(VV[140],&Lnk140);} /* CURRENT-STEP-FUN */
  3205. static LnkT139(){ call_or_link(VV[139],&Lnk139);} /* INIT-BREAK-POINTS */
  3206. static LnkT138(){ call_or_link(VV[138],&Lnk138);} /* IHS-FNAME */
  3207. static LnkT137(){ call_or_link(VV[137],&Lnk137);} /* STREAM-NAME */
  3208. static LnkT136(){ call_or_link(VV[136],&Lnk136);} /* ITERATE-OVER-BKPTS */
  3209. static LnkT135(){ call_or_link(VV[135],&Lnk135);} /* MAKE-BREAK-POINT */
  3210. static object  LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[134],&LnkLI134,ap);} /* MAKE-ARRAY */
  3211. static LnkT133(){ call_or_link(VV[133],&Lnk133);} /* WALK-THROUGH */
  3212. static object  LnkTLI132(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[132],&LnkLI132,ap);} /* VECTOR-PUSH-EXTEND */
  3213. static LnkT131(){ call_or_link(VV[131],&Lnk131);} /* INSTREAM-NAME */
  3214. static LnkT130(){ call_or_link(VV[130],&Lnk130);} /* LOAD */
  3215. static LnkT129(){ call_or_link(VV[129],&Lnk129);} /* SETUP-LINEINFO */
  3216. static LnkT128(){ call_or_link(VV[128],&Lnk128);} /* CLEANUP */
  3217. static LnkT125(){ call_or_link(VV[125],&Lnk125);} /* READ-FROM-STRING */
  3218. static object  LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[124],&LnkLI124,ap);} /* COUNT */
  3219. static LnkT123(){ call_or_link(VV[123],&Lnk123);} /* GET-INSTREAM */
  3220. static LnkT122(){ call_or_link(VV[122],&Lnk122);} /* MAKE-INSTREAM */
  3221. static object  LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[121],&LnkLI121,ap);} /* DELETE */
  3222. static LnkT120(){ call_or_link(VV[120],&Lnk120);} /* CLOSEDP */
  3223. static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* BREAK-LEVEL */
  3224. static object  LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[117],&LnkLI117,1,ap);} /* SHOW-ENVIRONMENT */
  3225. static LnkT116(){ call_or_link(VV[116],&Lnk116);} /* BREAK-LOCALS */
  3226. static LnkT115(){ call_or_link(VV[115],&Lnk115);} /* BREAK-GO */
  3227. static object  LnkTLI114(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[114],&LnkLI114,ap);} /* SEARCH */
  3228. static LnkT113(){ call_or_link(VV[113],&Lnk113);} /* COMPILED-FUNCTION-NAME */
  3229. static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* IHS-FUN */
  3230. static object  LnkTLI111(){return call_proc0(VV[111],&LnkLI111);} /* TYPE-ERROR */
  3231. static LnkT110(){ call_or_link(VV[110],&Lnk110);} /* IHS-TOP */
  3232. static LnkT109(){ call_or_link(VV[109],&Lnk109);} /* VS */
  3233. static LnkT108(){ call_or_link(VV[108],&Lnk108);} /* IHS-VS */
  3234. static LnkT107(){ call_or_link(VV[107],&Lnk107);} /* BREAK-PREVIOUS */
  3235.